Помогите с задачей на Паскале

Помогите с задачей на Паскале
Гость
Ответ(ы) на вопрос:
Гость
var x,y:real; begin readln(x,y); if (y<2) and (y>0) and (x>0) and (y>sin(x)/cos(x)) then writeln('Принадлежит') else writeln('Не принадлежит') end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы