ПАСКАЛЬ!!!
Дано 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;varsum,r:real;i,n:longint;beginn:=0;sum:=0;r:=1;while r>=eps dobegin inc(n); r:=(2*n-1)/(sqr(2*n)); sum:=sum+rend;writeln(sum)end.