Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
cthutq1597539
27.07.2020 12:51 •
Информатика
:найти и вывести на экран все целые числа из промежутка от 1 до k, которые заканчиваются на четную цифру. формат ввода: на вход подается неотрицательное, целое число k, не превосходящее 30000. формат вывода: искомые числе в одну строку через пробел.
Ответ:
12dosbol
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 оценок)
Популярные вопросы: Информатика
8800553535Qwerty
02.10.2021 06:37
Составить программу,позволяющую ввести с клавиатуры данные о росте учеников в классе в массиве и вывести на экран...
098473
19.05.2023 19:50
Совокупность знаков с которых записываються числа называются?...
NinCom
19.05.2023 19:50
Прочитай два суждения и напиши заключение: если все деревья растения, а липа — дерево. заключение: то липа - это...
gorkylush
11.03.2023 14:50
Пож! выберите из этих букв правильный что является достоинством векторной графики? а) получение изображений фотографического качества; б) небольшой размер графического файла;...
svyatkin111
01.10.2022 15:05
Записать ip-адрес из четырех десятичных чисел в 32-битном виде: 147.230.159.25...
дашасалищева
26.10.2022 22:26
.На PYTHON только! Напишите функцию , которая на вход получает число .На вход True (простое), False (сложное)....
Зубканай
12.02.2022 20:26
За 10с через поперечное сечение проводника електронов. какие показания дает амперметр...
sofiahayda
12.02.2022 20:26
М.шорохов судьба человека описание андрея соколова...
dudakovas
12.02.2022 20:26
Что является причиной сложного поведения насекомых и хорошей при к изменяющимся условиям существования...
Kov3456
12.02.2022 20:26
Оставьте 3предложения с вводным словом...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.