Задача: Подсчитать сумму 1!+ 2! + 3! +...N! Где, например, 5! --факториал числа 5 и 5! =...

Question

Задача:

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

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

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

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

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

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

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

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

153

Comments

Вам на каком языке программу?

---

паскаль

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.

Comments

в общем, когда в паскале проверяю, пишет, что перед   R := 1; ожидался символ ' '

---

abc

---

Это тот же ФриПаскаль, только с красивым окошком

---

А в чём, собсно проблема?

---

ПИшет, что ожидался символ пробела?=)

---

пишет, что ожидалось ' ' перед R :=...

---

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

---

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

---

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

---

там уже дело в чём-то другом...