Question

Вычислить 20!+ 30! используя паскаль. желательно показывая формулу. ато подзабыл тему

Answer 1

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function F(n:biginteger):biginteger;
begin
  if n<=1 then Result:=1
  else begin
    Result:=1;
    var i:biginteger:=1;
    while i<=n do begin Result*=i; i+=1 end;
    end
end;

begin
  Writeln(F(20)+F(30))
end.

Результат
265252859812193491538316656640000