Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
remboibragimov
06.11.2022 09:57 •
Информатика
Составьте программу вывода на экран всех нечетных чисел от -10 до 50
Ответ:
artovesckin72
25.08.2020 06:23
Var
i: integer;
begin
for i := 1 to n do
if (i mod 2 <> 0) then write(i, ' ');
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
круголс
28.09.2022 14:32
Чтоо лучше Intel или raizen...
zhenyaminaev2
17.04.2022 00:21
Информация, как приготовить мясные котлеты, информатика 3 класс...
24211626l
17.04.2022 00:21
Найти сумму всех нечётных от 50 до 80, используя все три вида циклов....
danekhakker
17.04.2022 00:21
Вычеслите значение функции u=x+1 на отрезке от 0 до 10 с шагом 0.3....
эхпечальнокакто
17.04.2022 00:21
Написать программу , которая считает, сколько раз последовательности из 10 чисел встречается введённое с клавиатуры число а....
умненькийкотенок
17.03.2022 16:06
Перевести число а10= 252 в двоичную, восьмеричную и шестнадцатеричную систему счисления....
Marina11231
17.04.2021 10:41
Составить программу в pascal help ! подготовка к в тексте, состоящем из 3 слов, проверить, есть ли заданное слово и сколько раз оно повторяется. если такого слова нет, то...
ЕлизабетклассD
26.12.2020 08:10
у меня сор очень нужно: Ты стал свидетелем падения метеорита, снял видео и выложил в социальную сеть. Вечером включил телевизор, а твое видео транслируют по всем телеканалам....
swetakorchagov
24.04.2022 08:09
рассказ содержит 4 страницы на каждой странице 20 строк в каждой строке 80 символов определите объем в кбайтах в кодировке Unicod 16...
yanaolok
13.06.2020 20:49
Решите задачу в виде таблицы или на рисунке самом За не правильно выданный ответ либо оффтоп буду кидать жалобу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
i: integer;
begin
for i := 1 to n do
if (i mod 2 <> 0) then write(i, ' ');
readln;
end.