Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
кент63
01.06.2020 02:06 •
Информатика
Нужно написать программу, которая будет находит все чётные числа, не превосходящие число n
Ответ:
Nastia2k
09.10.2020 07:09
var
a,n,i:integer;
Begin
read(n);
For i:= 1 to n do
If i mod 2 = 0 then
writeln(i);
end.
На паскале
0,0
(0 оценок)
Популярные вопросы: Информатика
yuuliiya1717
18.08.2020 07:00
Много за ответ, только верный: ответить на вопросы по прогромированию: 1) какие знаки используются для написания коминтариев к программам? (язык pascal)2)каким словом должна...
Катерина122333
30.10.2020 12:17
Первые два числа равны 1каждое следующее число принимается равным произведению двух предыдущих чисел. запишите 7 первых чисел последовательности....
bogdankavolev9
20.03.2022 20:19
Срсп алгоритмы и програмирование 1) условие 2) введеные обозначения 3)алгоритм решения в виде блок схемы 4) программа на языке pascal в worde 4,29 в объединении 15 магазинов,...
nik232451
16.07.2021 18:27
5. определите и выведите на экран числа от 100 до 500, которые делятся на 8 и 11 одновременно....
danishvika
30.09.2021 15:01
Дан двумерный массив a[m,n]. найти максимальное значение и его порядковый номер. результаты выдать на экран.нужен !...
Пользовательудален
23.05.2021 04:28
Запишите формулу для расчёта первой космической скорости спутника любой планеты....
Валентинаг8675597
23.05.2021 04:28
Автомобиль равномерно движется по выпуклому мосту (рис. 25). Какое направление имеет вектор центростремительного ускорения,...
ivankal
23.05.2021 04:28
Как будет двигаться тело, если скорость тела и действующая на него сила направлены под углом друг к другу?...
alioo
23.05.2021 04:28
Запишите формулу для расчёта первой космической скорости спутника, движущегося вблизи поверхности Земли. Чему она равна?...
mery77
23.05.2021 04:28
С какой скоростью должен двигаться мотоциклист по выпуклому участку дороги, имеющему радиус кривизны 40 м, чтобы в верхней точке...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
a,n,i:integer;
Begin
read(n);
For i:= 1 to n do
If i mod 2 = 0 then
writeln(i);
end.
На паскале