Задание 1б ** PascalABC

Question

Задание 1б на PascalABC

---

Answer 1

var

   x, f : real;

   

begin

   write('введите x=');

   readln(x);

   if x < 3 then f := ln(abs(2-x))

   else if (x >= 3) and (x < 5) then f := x/(x-2)

   else f := sqrt(x-4);

   writeln('f=', f);

end.