Question

Паскаль. Напишите программу, которая вычисляет значение функции :

Answer 1

===== PascalABC.NET =====

function y1(x: real) := x >= 0 ? 2 * x : x / 2;

function y2(x: real) := x > 5 ? x + 3 : x - 3;

begin

 var x := ReadReal;

 Print(y1(x), y2(x))

end.