Найти 1!+2!+ ...+n!. Используйте функцию нахождения факториала, т. к подается на вход и получается результат.

Question

Информатика

Тала

10 августа, 13:50

Найти 1!+2!+ ...+n!. Используйте функцию нахождения факториала, т. к подается на вход и получается результат.

+1

Ответы (1)

Знаете ответ на вопрос?

Володюня · Answer 1

var

N, J: Word;

sum: Integer;

function factorial (N : word) : longint;

var

i : integer;

f : longint;

begin

f : = 1;

for i : = 2 to n do

f : = f * i;

factorial : = f

end;

begin

write ('Введите N: ') ;

readLn (N) ;

sum : = 0;

for J : = 1 to N do Inc (Sum, Factorial (J)) ;

write ('Сумма равна: ') ;

writeLn (Sum) ;

end.