Вычислить сумму ?^?_к=1n/n³+n² с точностью 10 ^-6.

Решение.

Uses crt;

Var

n:integer;

x,s,e:real;

begin

s:=0;  x:=0.5;  e:=0,000001;  n:=1;

While x>e do

begin

s:=s+x;

n:=n+1;

x:=n/(sqr(n)*n+sqr(n));

end;

writeln(‘Сумма равна’,s:3:4);

end.