Феликс
5 год назад
Найдите произведение целых чисел от 20 до 40.
ОТВЕТЫ
Стоянка
Oct 24, 2020
Var
P:real;
i:integer;
Begin
P:=1;
For i:= 20 to 40 do
P:=P*i;
WriteLn('P = ',P)
End.
P = 6.70734193572714E+30
P:real;
i:integer;
Begin
P:=1;
For i:= 20 to 40 do
P:=P*i;
WriteLn('P = ',P)
End.
P = 6.70734193572714E+30
934
