Составить программу, которая просит ввести любое число в интервале от 1 до 30, затем подсчитывает произведение чисел кратных 5 в интервале от 0 до введённого числа.
Ответы
Ответ дал:
0
Код 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.
Вас заинтересует
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад