Определение принадлежности точки выделенной области

@Fnazzias · Регистрация: 05.10.2016

Author24 — интернет-сервис помощи студентам

Заранее спасибо.

@Fnazzias · 09.10.2016, 17:57 **[ТС]**

Сам решил )

Pascal

var
     x,y:integer;
begin
     read(x,y);
     if (y>=0) and (y<=4) and (x>=0) and (x+y<5)
         then write('Нет')
         else if (y>=0) and (y<4) and (x>=3) and (x<=7) and (x+y<11)
                 then write('Нет')
                 else if (y>=3) and (y<8) and (x>=0) and (x<=5) and (x+y<11)
                         then write('Нет')
                         else if (y>4) and (y<=7) and (x>=3)  and (x<=7) and (x+y<14)
                                 then write('Нет')
                                 else write('Да');
end.

@Puporev · 09.10.2016, 18:03

Pascal

1	if abs(x-4)+abs(y-4)<=3 then write('Да')

@Fnazzias 0 / 0 / 2 Регистрация: 05.10.2016 Сообщений: 9
		1
	Определение принадлежности точки выделенной области 09.10.2016, 17:43. Показов 1814. Ответов 2 Метки нет (Все метки) Заранее спасибо. Миниатюры 0

	09.10.2016, 18:03

Определение принадлежности точки выделенной области

Решение