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

Question

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

Answer 1

// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('П=',20.to(40).Aggregate(BigInteger(1),(x,y)->x*y))
end.

Результат
П=6707341935727141628215296000000

Answer 2

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

Comments

Спасибо, братик :3