Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы