Предмет: Информатика,
автор: КлубНичка03
номер 7 . Рисунок 34 .Помогите пожалуйста ( Pascal)
Приложения:
![](https://files.topotvet.com/i/147/14745bc7c9abbec93433bc830884198d.jpg)
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Русский язык,
автор: geekaterina83
Предмет: Математика,
автор: Аноним
Предмет: География,
автор: alexandr161081
Предмет: Математика,
автор: Аноним
Предмет: Геометрия,
автор: SnowWhite98