Question

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

Answer 1

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.

Answer 2

это к 17 варианту?

Answer 3

да