Программа просит ввести число от 1 до 30, затем подсчитать произведение чисел кратных 5 в интервале от 0 до введённого числа - Turbo Pascal
Формулировка задачи:
Здравствуйте. Помогите, пожалуйста, решить задачу:
Составить программу, которая просит ввести любое число в интервале от 1 до 30, затем подсчитывает произведение чисел кратных 5 в интервале от 0 до введённого числа.
Буду благодарен
Решение задачи: «Программа просит ввести число от 1 до 30, затем подсчитать произведение чисел кратных 5 в интервале от 0 до введённого числа»
textual
Листинг программы
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.