Нужна задачка, помогие решить Опции

[Till]

Помогите мученику.
Вот эта задача:

[Sozialist]

Пределы k каковы? От 0 или от -2 или может еще что?

Спойлер (Показать/Скрыть)

При нуле вроде так:

Var
   k:integer;
   eps:real;
   s,memb:double;
Begin
  s:=0; memb:=0; k:=0; {нижний предел}
  write('eps= ');
  readln(eps);
  while memb<=eps do
    begin
      s:=s+memb;
      memb:=sqrt(k*k*k+15);
      inc(k);
    end;
  write(s:5:5);
  readln
End.

Сообщение отредактировано: Sozialist - 23.06.2008 23:36