Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
пупс110
23.06.2020 02:22 •
Информатика
Составить программу для нахождения произведения чётных чисел из диапозона от 3 до 17. с подробным решением!
Ответ:
irishanovikova01
12.06.2020 04:03
var i,k:integer;
begin
for i:=3 to 17 do if i mod 2 = 0 then k:=k*i;
write(k);
end;
0,0
(0 оценок)
Популярные вопросы: Информатика
nlimel
26.09.2022 05:41
параметр цвета, определяющий освещённость или затемнённость цвета....
Danielkz02
04.12.2021 19:18
Один из основных инструментов SketchUp a) Перемещение b) Вращение c) Ручная работа d) Ластик ПОМГИТЕ...
lolik1162005
13.08.2021 18:52
Лариса задумала число, разделила его на 5, к частному прибавила 80, сумму умножила на 6 и произведение разделила на 72. получилось число 10. какое число задумала лариса?...
Neymar3110
15.05.2021 04:32
Составить предложение со словом планёр...
mariya8309662072
15.05.2021 04:32
Цепочку аккордов от до и ля т 53, т6,s53, д53, т64...
arsenkam
15.05.2021 04:32
Найдите длину окружности, если её диаметр равен 2,3см (π=3,14)...
olgamorozkina19
15.05.2021 04:32
Найдите площадь квадрата описанного вокруг окружности радиуса 18...
virakudleychuk
15.05.2021 04:32
1000x³-(10x-1)(100x²+10x+1)+x+6= якщо, х =1,147...
Alinыch11
15.05.2021 04:32
Реши и вырази ответ в более крупных единицах площади : найди площадь поля,засеянного рожью , если его длинна 300метров , а ширина 100метров...
aliya111000
15.05.2021 04:32
Отметьте лишнее. основные черты развития южной части колоний в америке а) применение рабского труда б) развитие крупных торгово-промышленного городов в) развитие табачных и...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var i,k:integer;
begin
for i:=3 to 17 do if i mod 2 = 0 then k:=k*i;
write(k);
end;