Срочноооо Составьте программу на Паскаль

Question

Срочноооо Составьте программу на Паскаль

---

Answer 1

Ответ:

program z1;

var x:real;

begin

x:=5;

repeat

writeln('x = ',x:3,'     f(x) = ',sqr(x)+sqrt(x)/(x-24):0:3);

x:=x+0.1

until x>6

end.