Pagini recente » Cod sursa (job #189576) | Cod sursa (job #1132378) | Cod sursa (job #2605932) | Cod sursa (job #2897971) | Cod sursa (job #2127077)
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.