Question

Напишите на языке паскаль программу ,которая считает эти выражения

Answer 1

// PascalABC.NET 3.4

begin

   var x:=ReadReal('введите x:');

   var y:=(18.3*Exp(-x*x/2)-6.3*Exp(-x/3))/(7.4*Tan(x/2)-(2*x)**(1/3));

   Writeln('2. y=',y);

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

   Writeln('3. y=',y);

   y:=Ln((Exp(-x*x)-x**0.25+Cos(x/2))/Sqrt(1+Tan(x*x)**2));

   Writeln('4. y=',y)

end.