Bài 7: Viết chương trình tính và đưa ra màn hình tổng S=n! (n nhập vào từ bàn phím)
Bài 8*: Viết chương trình tính và đưa ra màn hình tổng S=1!+2!+3!+ … +N! (N nhập vào từ bàn phím)
Bài 9*: Viết chương trình tính và đưa ra màn hình tổng S=1+ 1/(2!)+1/(3!) +…+1/(N!)
(N nhập vào từ bàn phím)
7.
var n,i,s:longint;
begin
s:=1;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
s:=s*i;
write(‘s= ‘,s);
readln;
end.
8.
var n,s:longint;
function gt(x:longint):longint;
var kq,j:longint;
begin
kq:=1;
for j:=1 to x do
kq:=kq*j;
exit(kq);
end;
begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
s:=s+ gt(i);
write(‘s= ‘,s);
readln;
end.