Код
function f(x: real): real;
begin
f:=exp(-x)-sqr(x-1);
end;
var
a, b, e, c, x: real;
begin
a:=1;
b:=2;
write ('e=');
read(e);
c:=(a+b)/2;
while abs(b-a)>e do
begin
if f(a)*f(c)<0 then
b:=c
else
a:=c;
c:=(a+b)/2;
end;
x:=(a+b)/2;
writeln ('x=',x:3:3)
end;
begin
f:=exp(-x)-sqr(x-1);
end;
var
a, b, e, c, x: real;
begin
a:=1;
b:=2;
write ('e=');
read(e);
c:=(a+b)/2;
while abs(b-a)>e do
begin
if f(a)*f(c)<0 then
b:=c
else
a:=c;
c:=(a+b)/2;
end;
x:=(a+b)/2;
writeln ('x=',x:3:3)
end;
с уважением, Иван