Question

Паскаль, пожалуйста помогать.
Номер 5

Answer 1

{Y = ((x - a)* arctg(a+x)-V^1/3|(x - a)| + x * ln(x^2 +2))}var Y,x,a,z:real;function Root3(X: Real): Real;begin  if X = 0.0 then    Root3 := 0.0  else if X > 0.0 then    Root3 := Exp(Ln(X) / 3)  else    Root3 := -Exp(Ln(-X) / 3)end;begina := 0.4;x := 0.6;z:= Root3(abs(x - a));Y:= (x - a)* arctan(a+x)- z + x * Ln(x*x +2);
write(Y:9:6);end.