ПАСКАЛЬ!!!Дано eps=0.001. Вычислить . Суммировать до тех пор, пока еще одно слагаемое

ПАСКАЛЬ!!!
Дано eps=0.001. Вычислить . Суммировать до тех пор, пока еще одно слагаемое по модулю не станет меньше eps. Общий член ряда: u=2n-1/(2n)^2
1/2^2+2/4^2+5/6^2+7/8^2+...

Задать свой вопрос
1 ответ
Program aaa;
const eps=0.001;
var
sum,r:real;
i,n:longint;
begin
n:=0;
sum:=0;
r:=1;
while rgt;=eps do
begin
 inc(n);
 r:=(2*n-1)/(sqr(2*n));
 sum:=sum+r
end;
writeln(sum)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт