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
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.