Viết chương trình tính tổng S=1/1^2+ 1/2^2 + 1/3^2 +…+1/N^2 . Giúp mình với ạ, mình đang cần gấp!!!

2 câu trả lời

For i:=1 to n do t:=t+1/(i*i); // t là biến kq

Nhập xuất tự làm

uses crt;

var i, N : integer; S : real;

begin

clrscr;

write('Nhap so N : '); readln(N);

S := 0; for i := 1 to N do S := S + 1 / sqr(i);

write('S = ', S : 2 : 3);

readln

end.