решение алгебраических и трансцендентных уравнений

[Золото]

решение алгебраических и трансцендентных уравнений: 0,4+arctg корень Х-x=0 отрезок содержащий корень [1;2] метод решения Итераций
приближенное значение корня:1,2388
решите кто может))

[TinMan]

Сообщение от Золото

решите кто может))

А кто не может?.. тем и не пытаться, да?.. обижаешь.. )))
Лови, я сегодня добрый ))

const
  e= 1e-13;
  x1= 1;
  x2= 2;

var
  x,y: double;

begin
  y:= (x1+x2)/2;
  repeat
    x:= y;
    y:= 0.4+ArcTan(Sqrt(x));
  until Abs(y-x)<e;
  writeln('x = ',y:15:12);
  readln
end.

[Золото]

Спасибо, я реально в этом не разбираюсь)) а обижать я никого не собиралась,просто оч надо)
можно тебя еще попросить сделать задания?))