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

Ответы 1

  • // PascalABC.NET 3.1, сборка 1250 от 28.05.2016function 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;    endend;begin  Writeln(F(20)+F(30))end.Результат265252859812193491538316656640000
    • Автор:

      columbano
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years