Question

Составьте алгоритм для вычисления произведения чисел 5,10,15......55.

У меня есть начало, вот оно закончите пж:

r;=5, n:=55;

i:=i+5.

 

Answer 1

Var i,s:integer;

begin

i:=5; s:=1;

 while i<=55 do begin

s:=s*i;

i:=i+5; 

end. 

writeln(s);

end.

 

 

 

 

 

 

 

 

 

Answer 2

Можно использовать конструкцию

H=1;

for i= 5 to 55 step 5 do

H=H*i;

 

Извините, могут быть неточности в синтаксисом, Паскаль использовал лет 15 назад, забыл...