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
1 câu trả lời
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