Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project2;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- var
- n, m, k, i, x1, y1, x2, y2, x3, y3: integer;
- begin
- readln (n, m);
- readln (k);
- for i := 1 to k do begin
- readln (x1, y1, x2, y2, x3, y3);
- if ((x1 = x2) and (y1 = y2) or (x1 = x3) and (y1 = y3)) and ((x1 <> m) and (y1 <> n) and (x1 <> 1) and (y1 <> 1)) then begin
- writeln ('NO');
- end
- else if ((x1 = x2) and (y1 = y2) or (x1 = x3) and (y1 = y3)) and ((x1 = m) or (y1 = n) or (x1 = 1) or (y1 = 1)) then begin
- writeln ('YES');
- end
- else if (abs (x1 - x2) = abs (y1 - y2)) and (abs(x1 - x3) = abs(y1 - y3)) and ((x1 >= x2) and (y1 >= y2) and (y3 >= y1) and (x3 >= x1) or (x2 >= x1) and (y2 >= y1) and (x3 <= x1) and (y3 <= y1))then
- writeln ('NO')
- else
- writeln ('YES');
- end;
- readln;
- readln;
- end.
RAW Paste Data