Question

составить программу для вычисления значения функции​

Answer 1

===== PascaslABC.NET =====

begin

 var x := ReadReal;

 var k := Sin(x) < 0 ? x * x : Abs(x);

 var f := k < x ? k * x : k + x;

 Print('f(x) =', f}

end.