Question

Помогите написать программу в Pascal. Нужно написать программу в Pascal которая решала бы данную функцию.

Answer 1

// PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018

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

begin

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

 var y: real;

 if x < 0 then y := x * x - 3 - (Pi - x) ** (1 / 3)

 else

 if x < 1 then y := Sqr(x * x + 3) - Sqrt(0.5 * Pi + x)

 else y := x * (x * x + 3) + Ln(Pi + x);

 Println('y =', y)

end.