Задача:

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

Где, например, 5! —факториал числа 5 и 5! = 1*2*3*4*5

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

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

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

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

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

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

153 — Правильный ответ на вопрос найдете ниже

Ответ: пишет, что ожидалось ‘ ‘ перед R :=…

Ответ: Ничем помочь не могу. Попробуйте просто перепечатать программу… Но всё ж скопируйте сюда сообщение об ошибке целиком

Ответ: Может быть, оно просто не правильно воспринимает отступы в начале строки…

Ответ: Нет, это я уже исправила

Ответ: там уже дело в чём-то другом…

Ответ: 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.