Задания.ру
Анонимно
2 часа назад

Задача:

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

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

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

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

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

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

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

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

153

Ответ

Анонимно
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.

Новые вопросы по Информатике

Написать программу на яп Pascal abc которая решает пример и выводит решение на экран z=кв.корень(3у^2-7)/sin(y)+|x^3|+5e^x
Студенческий
2 минуты назад
Значение арифметического выражения 9 в степени 2016 плюс 3 в степени 2015 минус 9 записали в системе счисления с основанием 3 Сколько цифр 2 содержится в этой записи?
10 - 11 классы
2 минуты назад
К реке подъехали два рыцаря с оруженосцами и обнаружили двухместную лодку.Как организовать самую скорою переправу. Сколько времени потребуется на переправу,если каждая поездка через реку(в одну сторон...
5 - 9 классы
2 минуты назад
1.Вывести на экран все числа от нуля до введенного пользователем числа. 2.Пользователь вводит две границы диапазона. Посчитать сумму всех чисел диапазона. 3.Написать программу, которая выводит на эк...
1 - 4 классы
4 минуты назад
Члены некоторой последовательности записаны подряд 139278124 определите следующие цифры в этой записи а) 56 б) 13 в)37 г) 57
5 - 9 классы
8 минут назад