Question

Вычислить сумму ряда. решить в паскале

Answer 1

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var i:=2;
  var s:=0.0;
  var t:=0.0;
  var eps:=0.005;
  repeat
    var t1:=5.0/(i*i-1);
    s:=s+t;
    if abs(t1-t)<=eps then break;
    t:=t1;
    i:=i+1;
  until false;
  Writeln('s=',s)
end.

Результат
s=3.37912087912088