Pascal. Составить программу, в которой с помощью оператора while посчитать сумму ряда ...

Question

Pascal. Составить программу, в которой с помощью оператора while посчитать сумму ряда тех пор пока член ряда не будет меньше 0.005.

Answer 1

Const e=0.005;
var i:integer;
a,s:real;
begin
i:=2;
a:=5/(i*i-1);
s:=0;
while a>=e do
 begin
 s:=s+a;
 i:=i+1;
 a:=5/(i*i-1);
 end;
writeln('i = ',i,' s = ',s);
end.

Результат:
i = 32 s = 3.59122983870968