Question

Составьте программу, которая вычисляет значение y, для любого действительного X, что введено с клавиатуры.

Answer 1

Ответ:

--- PascalABC.NET 3.6.2 ---

begin

 var func: real -> real := x -> (x ** 2) + 4*x + 5;

 var x := ReadInteger();

 println( x <= 2 ? func(x) : 1/func(x));

end.

Объяснение: