Составьте алгоритм для вычисления произведения чисел 5,10,15......55. У меня есть начало, вот оно закончите пж: r;=5, n:=55; i:=i+5.

Question

Составьте алгоритм для вычисления произведения чисел 5,10,15......55. У меня есть начало, вот оно закончите пж: r;=5, n:=55; i:=i+5.

Гость

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

Гость

Можно использовать конструкцию H=1; for i= 5 to 55 step 5 do H=H*i; Извините, могут быть неточности в синтаксисом, Паскаль использовал лет 15 назад, забыл...

Accepted Answer

Var i,s:integer; begin i:=5; s:=1; while i<=55 do begin s:=s*i; i:=i+5; end. writeln(s); end.