Дано eps=0.001. вычислить . суммировать до тех пор, пока очередное слагаемое по модулю не станет меньше eps. общий член ряда: u=2n-1/(2n)^2 1/2^2+2/4^2+5/6^2+7/8^2+
Program aaa; const eps=0.001; var sum,r:real; i,n:longint; begin n:=0; sum:=0; r:=1; while r>=eps do begin inc(n); r:=(2*n-1)/(sqr(2*n)); sum:=sum+r end; writeln(sum) end.
const eps=0.001;
var
sum,r:real;
i,n:longint;
begin
n:=0;
sum:=0;
r:=1;
while r>=eps do
begin
inc(n);
r:=(2*n-1)/(sqr(2*n));
sum:=sum+r
end;
writeln(sum)
end.