Question

Даны вещественные x, y, z. Вычислить a, b, если

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

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

begin

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

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

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

 Println(a,b)

end.

Пример

12.4 -0.183 5

0.00634876065501366 59.9941544956667