Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы