Определить принадлежит ли точка (x,y) области Опции

[Rikki_Irena]

Составить программу , используя условный оператор

[Krjuger]

Ну вот это уже что-то)))

Var
x,y: integer;
begin
x:=3;
y:=6;
if ((x-5>=0) and (y<=x) and (y-5>=0)) or ((x-5<=0) and (y>=x) and (y-5<=0)) then
  writeln('DA')
else
writeln('NET');
readln;
end.

Вроде работает))))

МОжно раскидать по нескольким условиям,если есть вопросы,спрашивайте...

Сообщение отредактировано: Krjuger - 21.12.2011 22:28