Вычислить 1!+2!+3! + ... + n!, используя функцию для вычисления факториала k!=123 * ... * k

Question

Информатика

Мальвина

14 июня, 00:41

Вычислить 1!+2!+3! + ... + n!, используя функцию для вычисления факториала k!=123 * ... * k

+1

Ответы (1)

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

Иаким · Answer 1

Function Fact (n: integer) : longint;

vat i: integer;

f: longint;

begin

f:=1;

for i:=2 to n do f:=f*i;

fact:=f

end;

var N: integer;

i: integer;

sum:real;

begin

readln (n) ;

s:=0;

for i:=1 to n do

s:=s+fact (i) ;

writeln (s:6:0) ;

end

Вычислить 1!+2!+3! + ... + n!, используя функцию для вычисления факториала k!=1*2*3 * ... * k

Вычислить 1!+2!+3! + ... + n!, используя функцию для вычисления факториала k!=123 * ... * k