Bài 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên.
Cho số tự nhiên n, hãy lập trình để tính các tổng sau :
a) 1+1/2^2 +1/3^2 +…….+1/n^2
b)1+1/2!+1/3!+….+1/n!
mọi người giúp em được không ạ>>> em sắp phải nộp để lấy điểm rồi… em ngu tin lắm
Var i ,n : integer;
S , T : real;
Begin
write (‘n=’) ; read (n) ;
S:= 0;
T:= 1;
For i:= 1 to n do
S:= S + i;
T:= T * i;
Writeln (‘ Tong cua ‘ ,n,’ so dau tien la’ , S );
Writeln (‘ Tich của ‘ ,n,’ so dau tien la’ , T );
Readln;
End.
kham khảo