Question

2 задание паскалем писать

Answer 1

var x, y: real;
begin
     readln(x);
     if (x < 0) then y := Power(x, 2) + 2
        else if (x <= 4) then y := 2
                else y := sqrt(x);
     writeln(y);
end.