номер 7 . Рисунок 34 .Помогите пожалуйста ( Pascal)
Приложения:
Ответы на вопрос
Ответил ВеликийБудда
0
Элементарно, дорогуша )
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.
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.
Новые вопросы