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

Question

Информатика

Михайлинка

30 июня, 18:22

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

+1

Ответы (1)

Знаете ответ на вопрос?

Беатриса · Answer 1

Код Pascal 1 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.