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