Вычислить частичную сумму ряда S=1/2^2+1/3^2+1/4^2+.... Вычисление прекратить, когда...

Question

Вычислить частичную сумму ряда S=1/2^2+1/3^2+1/4^2+....

Вычисление прекратить, когда модуль очередного слагаемого станет меньше 0,001. Проверьте, насколько сумма приблизилась к значению pi^2/6.

Answer 1

var
s,x,i:real;
begin
x:=1;
i:=2;
while x>0.001 do begin
s:=s+x;
x:=sqr(1/i);
i:=i+1;
end;
writeln('s=', s, ' pi^2/6=', sqr(pi)/6);
end.