[ProDaNTe]

Сообщение от lmikle

Инвертируй условие.

Код:

 While (abs(sk*(2*k*k+1))>e) do begin
    k:=k+1;
    sk:=-sk*x*x/((2*k-1)*fact(2*k));
    s:=s+(2*k*k+1)*sk;
    writeln('chlen[',k,'] = ',sk*(2*k*k+1):0:5);
  end;

Может >= ?