Задача:

Подсчитать сумму 1! + 2! + 3! + ... N!

Где, например, 5! - - факториал числа 5 и 5! = 12345

Формат ввода:

На вход подается натуральное число n не превосходящих 10.

Формат вывода:

Целое число - результат вычисления формулы.

Пример входных данных

5

Пример выходных данных

153

Question

Информатика

Капик

12 сентября, 18:22

Задача:

Подсчитать сумму 1! + 2! + 3! + ... N!

Где, например, 5! - - факториал числа 5 и 5! = 12345

Формат ввода:

На вход подается натуральное число n не превосходящих 10.

Формат вывода:

Целое число - результат вычисления формулы.

Пример входных данных

5

Пример выходных данных

153

+5

Ответы (1)

Знаете ответ на вопрос?

Аксюня · Answer 1

Function Factorial (N: integer) : integer;

var i, R: integer;

begin

R : = 1;

For i: = 1 to N do

R : = R * i;

Factorial : = R;

end;

Var

N, i, S: integer;

Begin

ReadLn (N) ;

S : = 0;

For i: = 1 to N do

S : = S + Factorial (i) ;

WriteLn (S) ;

End.