Задачи для тренировки

1) (х-1)3-(х-2)2=0. Ответ: 1,569.

2) 3х5+х3-2=0. Ответ: 0,854.

3) 1/(х-2)-(х-3)3=0. Ответ: 3,82.

var a,b,c,h:real;

a:=-10; b:=10;

while abs(b-a)>0.001 do

 begin

c:=(a+b)/2;

if (2*a+1)*(2*c+1)<0 then b:=c else a:=c;

end;

writeln(c);

end.