Các chuyên gia giúp với ạ! Tính tổng sau đây bằng chương trình con: S=1!+2!+3!+...+n! HELP ME!
2 câu trả lời
var n:longint;
function s(n:longint):qword;
var i:longint;
t:qword;
begin
t:=1;s:=0;
for i:=1 to n do
begin
t:=t*i;
s:=s+t;
end;
end;
begin
clrscr;
readln(n);
writeln(s(n));
readln;
end.
uses crt;
var n,i,j,sum,m:Longint;
function f(n:longint):longint;
begin
if n<2 then exit(1) else exit(n * (n - 1));
end;
begin
clrscr;
readln(n);
m:=f(n);
for i:=1 to n - 1 do
begin
j:=f(i);
inc(sum,j);
end;
inc(sum,m);
writeln(sum);
readln;
end.
