var
x,y,a,:real;
begin
write('x=');
readln (x);
if (x>0)then
y:=ln(abs((x)/sin(x)));
if (x<=0) then
y:= exp(sqr(x)-2*x+3);
a:= power(sin(y),2)/power(cos(y),2);
writeln('y=',y);
writeln('a=',a);
end.
Ответ написан
Комментировать
Комментировать
Оценили как «Нравится»
Войдите на сайт
Чтобы задать вопрос и получить на него квалифицированный ответ.