program nut;
var x0,x,e:real;
f:text;
begin
writeln ( ' x0, e ');
readln(x,e);
repeat
x0:=x;
x:=x0-(exp(x0*ln(2))+5*x0-3)/(exp(x0*ln(2))*ln(2)+5);
until abs(x-x0)<e;
writeln('x=',x);
end.
программа показывает : ошибок нет, компелируется, но не открывается
Сообщение отредактировано: volvo -