• Задача:

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

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

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

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

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

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

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

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

    153

Ответы 6

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

      frankie63
    • 6 лет назад
    • 0
  • Может быть, оно просто не правильно воспринимает отступы в начале строки...
    • Автор:

      tiaestes
    • 6 лет назад
    • 0
  • Нет, это я уже исправила
    • Автор:

      ericzm7y
    • 6 лет назад
    • 0
  • там уже дело в чём-то другом...
    • Автор:

      cassius
    • 6 лет назад
    • 0
  • 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.
  • Добавить свой ответ

Войти через Google

или

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

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

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