Регистрация
Evklidushka
20.09.2021 03:00
Информатика
Есть ответ 👍

Составить программу, которая просит ввести любое число в интервале от 1 до 30, затем подсчитывает произведение чисел кратных 5 в интервале от 0 до введённого числа.

199
326
Посмотреть ответы 2

Ответы на вопрос:

Polk1512
Polk1512
4,7(97 оценок)
Код pascal1 2 3 4 5 6 7 8 const d=5; var n, i: integer; p: longint; begin   write('введите число от 1 до 30: '); readln(n);   p: =1;   for i: =n div d downto 1 do p: =p*d*i;   writeln('произведение кратных ',d,': ',p); end.
natali030303nat
natali030303nat
4,6(74 оценок)
Var   text: integer; begin   readln(text);   if (text mod 2 = 0) then writeln(text,' - четное')   else  writeln(text,' - не  четное') end.

Популярно: Информатика