Ответы
Ответ дал:
0
Ответ:
один момент, значение получается достаточно большое и вмещается только в 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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад