Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ программа без ошибок и не запускается

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.

readln;