Ребят помогите буду оч благодарен

Ребят помогите буду оч благодарен
Гость
Ответ(ы) на вопрос:
Гость
var x,y,e:real;beginread(X);e:=power(2.7,-x*x);if x>0 then y:=(sin(x)*sin(x)-1)/(e+1)       else y:=(sin(x)/cos(x))*(sin(x)/cos(x));writeln(y);end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы