Question

Напишите пожалуйста как это будет выглядеть на языке pascal. Номер 8.

Answer 1

// PascalABC.NET 3.4.2, сборка 1782 от 01.09.2018

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

begin

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

 var y:real;

 if Abs(x)<>1 then

 begin

   y:=Abs(Sqrt(Abs(1-Ln(Abs(x*x-1))))/((Tan(x*x*x))**3+2*Ln(Abs(x+1))));

   Print('y =',y)

 end

end.