Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Игорь3773
17.12.2020 07:13 •
Информатика
Составьте программу выводящую на экран в первую строку - нечетные числа от 35 до 47 через точку с запятой а во вторую строку - четные числа от 18 до 54
Показать ответ
Ответ:
alinademushkina1
04.10.2020 10:26
Var i: integer;
begin
for i := 35 to 47 do
if(i.IsOdd) then write(i, '; ');
writeln;
for i := 18 to 54 do
if(i.IsEven) then write(i, '; ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Анна0809
20.06.2020 08:18
Определите, что будет напечатано в результате работы этой программы. ...
Niklosh
02.10.2021 22:09
Как нарисовать 3 домика подряд в программе КуМир...
Frolinng
09.07.2021 23:20
Текст рассказа набран на компьютере. информационный обьём получившегося файла 9 кбайт. текст занимает 6 страниц, на каждой странице одинаковое количество строк, в каждой строке...
fox2457667
22.01.2023 23:14
12.Доступ к файлу rus.doc, находящемуся на сервере obr.org, осуществляется по протоколу https. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность...
fananenkova
03.11.2022 05:53
Упражнения 356А. спиши предложения, раскрывая скобки и вставляя пропущенные буквы. Как отличить предлоги от самостоятельных частей оечи...
gsubxdu
14.04.2023 04:10
Выбери из предложений слова с полногласием и неполногласием, распредели их в колонки. Слова записывай в начальной форме. 1. Гладко море, берег гладок, гладки травы на лугах....
karinalbi
26.12.2021 08:43
19.2 7 сынып А)шенбердин ишинде;а)шенберден тыс;б)шенбердин бойында жаткан нукте аркылы берилген шенберге неше жанама жургизуге болады? Комектесиндерш отиниш берем...
MariMQ
20.06.2022 02:49
Сколько атомов водорода будет содержать последующий гомолог пентана?...
sonya410
05.02.2021 17:50
Квадратные медные пластины одинаковой толщины, площади которых 1 см2 и 1 м2, включены в цепь. Отношение токов в пластинах А и В равною...
UAola
21.07.2022 16:14
Уравнение 3 Икс плюс 83 Икс плюс 100 равно 960...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
for i := 35 to 47 do
if(i.IsOdd) then write(i, '; ');
writeln;
for i := 18 to 54 do
if(i.IsEven) then write(i, '; ');
end.