Pascal. Составьте программу вычисления значений функции:

Question

Pascal. Составьте программу вычисления значений функции:

Answer 1

// PascalABC.NET 3.6.3

begin

 var x := ReadReal;

 var y :=

     if x < -4 then 2 * Cos(x) - 5 * Sin(x)

     else if x > 1 then Ln(Sin(x) + 4)

     else Ln(3 - Sin(x));

 Print(y)    

end.