Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
kotikmotik55
27.10.2021 11:17 •
Информатика
Дано число n. составьте программу которая выводит все чётные числа от 2 до n.
Ответ:
valeevinsaf
16.09.2020 18:50
Var n,i:integer;
begin;
readln(n);
for i:=2 to n do
if i mod 2=0 then writeln(i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
daramir02
20.08.2021 04:12
Всостав каких систем входит система компьютер ? назовите надсистему для объекта принтер...
nazarstepanov2
20.08.2021 04:12
Как называется самый главный, обязательно присутствующий на диске, автоматически создаваемый каталог?...
Nelai54
06.04.2023 21:42
Как называется наука которая занимается завод роботы системы для них радиотехника Робототехника технологии кибернетика...
сойдет2
03.03.2021 19:40
Круги Эйлера, желательно подробное решение...
Макс111111м
22.05.2023 07:35
Запишите числительные словами контейнер с 895 предметами...
Айфон11111
22.05.2023 07:35
Здрасте решить биквадратные уравнения вот примеры 1) х4-22х2-75=0, 2) х4-14х2-32=0, 3) х4+3х2-28=0...
odminsovet
22.05.2023 07:35
Найти ошибки и исправить их. мутная смутного времени...
Аким548
22.05.2023 07:35
Какой предмет написать на сочинение? -295 язык,5 класс слово о котором можно описать какой он....
arizonacoins
22.05.2023 07:35
Диагональ равнобедренной трапеции равна 20 и образует с боковой стороной угол 30°, и с меньшим основанием угол 40°. найдите меньшее основание трапеции.....
konfetabox
22.05.2023 07:35
8-1=7 8-2=6. 8-3=5. 8-4=4 равенство которое лишнее...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin;
readln(n);
for i:=2 to n do
if i mod 2=0 then writeln(i);
end.