Cod sursa(job #2127077)

Utilizator _Victor_Victor Ciobanu _Victor_ Data 10 februarie 2018 12:12:13
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.92 kb
Program Acoperire;
var i1,j1,i2,j2,m,n,min :0..100000;
    i,num_tests:word;
    f,g:text;
begin
assign(f,'D:\games\Gaming\Pascal\3.0.2\Programs\Acoperire.in');
assign(g,'D:\games\Gaming\Pascal\3.0.2\Programs\Acoperire.out');
reset(f);
rewrite(g);
readln(f,num_tests);
for i:=1 to num_tests do begin
  readln(f,m,n,i1,j1,i2,j2);
if ((n mod 2 = 1) or (m mod 2 = 1)) then
  writeln(g,'No')
   else if n = 1 then begin
        min := i1;
        if min > i2 then
          min:= i2;
        if min mod 2 = 1 then
          writeln(g,'No')
          else
          writeln(g,'Yes');
  end else if m = 1 then begin
        min := j1;
        if min > j2 then
          min:= j2;
        if min mod 2 = 1 then
          writeln(g,'No')
          else
          writeln(g,'Yes');
  end else if (i1 + j1) mod 2 = (i2 + j2) mod 2 then
  writeln(g,'No')
  else
  writeln(g,'Yes');
end;
close(g);
close(f);
end.