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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.