Марк
6 год назад
Вычислить сумму ряда. решить в паскале
ОТВЕТЫ
Прокопович
Jul 5, 2019
// 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)lt;=eps then break;
t:=t1;
i:=i+1;
until false;
Writeln(s=,s)
end.
Результат
s=3.37912087912088
// Внимание! Если программа не работает, обновите версию!
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)lt;=eps then break;
t:=t1;
i:=i+1;
until false;
Writeln(s=,s)
end.
Результат
s=3.37912087912088
297
Смежные вопросы:
