Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Номер 7 . Рисунок 34 .Помогите пожалуйста ( Pascal)

Ответ оставил Гость

Элементарно, дорогуша ) 
Program p1;var a,b,p: integer;begin read(a);read(b);if(a<=4)and(a>=-4) then beginif(b<=a+4)and(b<=4-a)and(b>=-a-4)and(b>=a-4)then write(Принадлежит!)else write(Не принадлежит!);endelse write(Не принадлежит!);end.