Question

обчислити добуток чисел натурального ряду від 1 до 50 кратних 5

Answer 1

Ответ:

Pascal

var

 i :integer;

 p :int64;

begin

 i:=5;

 p:=1;

 while i <= 50 do begin

   p:=p*i;

   inc(i,5); //аналогично i:=i+5

 end;  

 writeln('Произведение =', p);

end.