Question

задания 2 ............

Answer 1

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  var x:=ReadReal('x=');
  Writeln('y=',Sqrt(Exp(x*x/sin(0.01*x))));
end.

Тестовое решение:
x= -0.12
y=0.00247874860726519

Answer 2

боже, зачем мое решение удалил?если а>-1, щначит оно не отрицательное..

Answer 3

а больше -1*