Задача:
Подсчитать сумму 1!+ 2! + 3! +...N!
Где, например, 5! --факториал числа 5 и 5! = 1*2*3*4*5
Формат ввода:
На вход подается натуральное число n не превосходящих 10.
Формат вывода:
Целое число - результат вычисления формулы.
Пример входных данных
5
Пример выходных данных
153
Ответы
Ответ дал:
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.
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.
Ответ дал:
0
пишет, что ожидалось ' ' перед R :=...
Ответ дал:
0
Ничем помочь не могу. Попробуйте просто перепечатать программу... Но всё ж скопируйте сюда сообщение об ошибке целиком
Ответ дал:
0
Может быть, оно просто не правильно воспринимает отступы в начале строки...
Ответ дал:
0
Нет, это я уже исправила
Ответ дал:
0
там уже дело в чём-то другом...
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад