Найдите произведение целых чисел от 20 до 40.

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.