Предмет: Информатика,
автор: Shkolonator
Вычислить 1!+2!+3!+...+n!, используя функцию для вычисления факториала k!=1*2*3*...*k
Ответы
Автор ответа:
0
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
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
Похожие вопросы
Предмет: Математика,
автор: Nikitylya2008
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: Аноним
Предмет: Алгебра,
автор: Cabron925