Question

подскажите пожалуйста решение примера , его надо решить в PASCAL ABC
а я понятия не имею как это делать

Answer 1

begin

 Writeln('Введите x, y, z:');

 var(x, y, z) := ReadInteger3();

 var a := (3 + Exp(y - 1)) / (1 + x * x * Abs(y - Tan(z)));

 var b := (y - x) ** 2 / 2 + Abs(y - x) ** 3 / 3;

 var c := a * a * Sqrt(Abs(a - b));

 WriteFormat('a = {0}, b = {1}, c = {2}', a, b, c)

end.