Составить программу вычисления значений функции для любого х по желанию пользователя:

Question

Составить программу вычисления значений функции для любого х по желанию пользователя:

---

Answer 1

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

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

begin

 var x := ReadReal('x =');

 if x < -2 then Print(Abs(Sin(x)) / (x * x - x ** 5))

 else Print(5 + x * (-1 + x * (1 + x)))

end.