Вычислить частичную сумму ряда S=1/2^2+1/3^2+1/4^2+....
Вычисление прекратить, когда модуль очередного слагаемого станет меньше 0,001. Проверьте, насколько сумма приблизилась к значению pi^2/6.
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад