Найти сумму ряда 1- 1/2² + 1/3² - …   c заданной точностью – e, первый отброшенный элемент ряда не должен превосходить e. Вывести на экран количество слагаемых, суммированных до достижения необходимой точности.

Решение.

program p16;

var

s, e, x: real;

z, k: integer;

begin

writeln(‘Введите заданную точность’);

Read (e);

s: = 0;

x: = 1;

z: = 1;

k:=1;

While x > e do begin

s: = S + z * x;

k: =k + 1;

x: = 1 / Sqr (k);

z: = - z;

end;

writeln (‘s= ‘, s, ‘k=’, k);

end.