Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
какаха105
02.05.2020 06:58 •
Информатика
По программе кумир вывести на экран все нечетные числа от 1 до 5 . заранее
Ответ:
larisagorkavchenko
26.05.2020 09:15
var a,i:integer;
begin
a:=1;
for i:=1 to 5 do
begin
if a mod 2 <> 0 then write(a,' ');
a:=a+1;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dmitryveris
23.08.2022 03:43
Дано вещественное число a. Выведите следующее за ним целое число. Пример:...
elenashyplukova
26.12.2021 21:19
Python У меня есть лист [6, 3, 1], а мне нужно int 631 Как это сделать?...
di630
04.01.2020 00:13
умоляю, ответьте на тесты , СОР идёт 4. Что из перечисленного не является категорией программного обеспечения? А) прикладное В) системное С) антивирусной D) инструментальное...
xeyal444
09.07.2020 08:41
Конспект про форматировании символов. только не больше. про шрифт, размер, начертание и цвет....
ГюнтерСтингерсон
25.03.2022 16:46
Втаблице dat хранятся данные о количестве самолётов, отправляющихся из аэропорта города на юг в первой декаде августа (dat[1] — количество самолётов первого числа,...
тэ10л
11.12.2022 15:51
Он живет всего лишь 3 секунды, а цвет соломенный. Он кто?...
pumpus
19.01.2023 19:11
Путешествие в древнюю Москву...
71121
02.02.2022 10:41
Коли вперше монголи з явилися на русі?...
follizy
29.10.2022 08:06
У гали было полторы упаковки лекарственных трав. Четверть упаковки она отдала больным одноклассникам,а пятую часть упаковки заварила. Сколько у нёё осталось...
Aseka09
29.10.2022 08:06
Самостоятельная по алгебре...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a,i:integer;
begin
a:=1;
for i:=1 to 5 do
begin
if a mod 2 <> 0 then write(a,' ');
a:=a+1;
end;
end.