Question

4. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если
точка принадлежит  заштрихованной области
(см. рисунок 4)  и «Не принадлежит»
в противном случае. Программа должна иметь дружественный интерфейс. Протестировать
программу для точек (0,0), (1,0), (1.5,1),
(-1,1.5), (-2,-1), (2,-1), (1,-1), (-1,1).
Рис. 4()

заранее спасибо) отмечу как лучший

71da37f0dee8132c75fd0aa8e92d8bf2.docx

Answer 1

var  
   x,y : integer;

begin

  Writeln('Введите координаты x: ');
  Read(x);
  Writeln('Введите координаты y: ');
  Read(y); 
  if (x>2) or (x<-2) then
      Writeln('Принадлежит') else Writeln('Не принадлежит');

end.