Viết chương trình Pascal tính tổng: $S=1!+2!+3!+...+100!$
1 câu trả lời
uses crt;
var i:longint; gt,s:qword;
begin
clrscr;
s:=0; gt:=1;
for i:=1 to 100 do
begin
gt:=gt*i;
s:=s+gt;
end;
writeln(s);
readln
end.
uses crt;
var i:longint; gt,s:qword;
begin
clrscr;
s:=0; gt:=1;
for i:=1 to 100 do
begin
gt:=gt*i;
s:=s+gt;
end;
writeln(s);
readln
end.
