Question

задание 3 под вариантом 0
подскажите как будет верно нужно для проверки

Answer 1

Ответ:

• var x, y: real;
• begin
• read (x);
• if x >= -1 then y := sqrt(x + 4)
• else if x >= -4 then y := 3*x
• else y := 2*x + 5;
• write(y);
• end.

PascalABC.NET:

• begin
• var f: real->real := x -> x>=-1 ? sqrt(x+4) : x>=-4 ? 3*x : 2*x + 5;
• f(ReadReal).Print
• end.