Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
alena5378
11.05.2022 13:56 •
Информатика
:найти и вывести на экран все целые числа из промежутка от 1 до k, которые заканчиваются на четную цифру. формат ввода: на вход подается неотрицательное, целое число k, не превосходящее 30000. формат вывода: искомые числе в одну строку через пробел.
Ответ:
87074552993
17.08.2020 07:54
var k,i:integer;
BEGIN
read(k);
i:=2;
while i<=k do begin
write(i,' ');
i:=i+2;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Апуля11
16.09.2022 15:18
Напиши текст ПО СОдержанию рисунка. мальчик за компьютером кушает икт...
SofiaDash
31.01.2020 20:35
Усломанного калькулятора есть лишь 2 команды: 1) -3 (вычесть три) 2) *4 (умножить на 4) нужно из числа 2 получить число 500 максимум 5 команд !...
228Denis228560
30.12.2022 14:25
Написать программу в паскале напечатать все положительные нечётные трёхзначные числа...
оффЛис
31.05.2020 05:49
Некоторое слово нужно обьязательно разместить в данной строке текста,а оно там не умещается.что вы предпримете в данной ситуации?...
олеся14111
31.05.2020 05:49
Графические документы каких видов можно вставлять в текстовый документ?...
volden05
12.07.2022 21:56
Как составить задачу что бы выражение было 500-30•7...
отличник733
05.12.2020 21:50
Составь текст экскурсии «Знай свой край...
CrazyBublic02
12.04.2021 20:11
Іван Сила як приклад для наслідувальників...
PomogitePPLez
29.06.2022 14:43
На окружности обозначены 3 точки А,B.C, причем AC диаметр окружности LBCA=60 градусов BC=4 см Найти R...
orhideya68
07.11.2022 17:28
Запишіть у вигляді десяткового дробу А) 9% Б) 69% В)190% Г)6,9%...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var k,i:integer;
BEGIN
read(k);
i:=2;
while i<=k do begin
write(i,' ');
i:=i+2;
end;
end.