Ребят мне надо написать программу в Паскаль, кто поможет буду благодарен !

Ребят мне надо написать программу в Паскаль, кто поможет буду благодарен !
Гость
Ответ(ы) на вопрос:
Гость
Где-то я уже это решал) var x,y,e:real; begin read(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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы