• Написать программу, Паскаль. Дано натуральное число N. Вычислить S = 1! + 2! +3! + ... + n! (n>1)

Ответы 1

  • // PascalABC.NET 3.3, сборка 1549 от 17.10.2017// Внимание! Если программа не работает, обновите версию!begin  var s:=BigInteger(0);  var f:=BigInteger(1);  for var i:=1 to ReadInteger('n=') do begin    f*=i;    s+=f    end;  Writeln('S= ',s)end.Примерыn= 5S= 153n= 20S= 2561327494111820313n= 100S= 94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313
  • Добавить свой ответ

Войти через Google

или

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

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

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