Вычислить сумму с точностью Опции

[-Alex-]

Заданны действительные числа x<>0, E>0. Вычислить сумму с точностью до Е(10-6). Определить количество слагаемых. В процессе
вычисления выдать на экран промежуточные результаты.
файл, с формулой webfile.ru/631015
Буду благодарен за помощь...
Нужен аглоритм решения.. я никак не могу разобраться, все не выходит... да не выходит..

М

А сюда сложно прикрепить? volvo

[Altair]

Проверь это

var
 x,e,k,s,ai:double;
 n:longint;
begin
 x:=1; k:=1; e:=10E-6; s:=0; ai:=0;
 repeat
  repeat
   ai:=(sqrt(abs(x)))/(k*k*k);
   s:=s+ai;
   k:=k+1;
   inc(n);
  until  (abs(ai/s)<e) or (n>10000000);
  x:=x+1; k:=1
 until x>6;
 writeln(s);
 writeln('chislo slogaemih =',n);
 readln
end.

Мне только кажется я с вычислением точности намутил. у меня ночь уже, спать хочу