profile
Опубликовано 5 лет назад по предмету Информатика от КлубНичка03

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

  1. Ответ
    Ответ дан ВеликийБудда
    Элементарно, дорогуша ) 
    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.