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

Question

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

Comments

n!=n*(n-1)! при n>1, 1!=1

---

От 30! большинство программ "загнётся", если использовать бейсик или древние версии Паскалей

Answer 1

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

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

Результат
265252859812193491538316656640000