Question

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

Answer 1

Ответ:

один момент, значение получается достаточно большое и вмещается только в Int64

т.е в 8 байт

Pascal

(*RU* Вычислить произведение чисел натурального ряда от 1 до 50 кратных 5 *)

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.