Дано натуральное число n. Вычислить: (c постусловием через repeat)(pascal) S= 1!

Дано естественное число n. Вычислить: (c постусловием через repeat)
(pascal)
S= 1! + 2! + 3! + ... + n! (ngt;1).

Задать свой вопрос
1 ответ

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('n =');

 if n lt;= 1 then 1.Print

 else

 begin

   var (s, i, f) := (BigInteger(1), 1, Biginteger(1));

   repeat

     i += 1;

     f *= i;

     s += f

   until i = n;

   s.Print

 end

end.

Пример

n = 100

94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт