Вычислить систему из двух функций при произвольных исходных данных

Question

Вычислить систему из двух функций при произвольных исходных данных

---

Answer 1

// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var x := ReadReal;

 var y := x <= 2 ?</p>

     Cos(Abs(7 * x + 2) / 3) + 3 :

     Tan(2 * x ** 3 + 4) + 7 * x;

 y.Println

end.

Примеры

-3

3.99874285122862

3

29.3308568524905

---