Cod sursa(job #1201170)
Utilizator | Valentin Valeanu valen.valentin | Data | 24 iunie 2014 16:11:58 |
---|---|---|---|
Problema | ChatNoir | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.41 kb |
program chatnoir;
var
n,m,x,y,nn,i:longint;
f1,f2:text;
function min(x,y:longint):longint;
begin
if x>y then min:=y else min:=x;
end;
begin
assign (f1,'chatnoir.in');
assign (f2,'chatnoir.out');
reset (f1);
rewrite (f2);
readln (f1,nn);
for i:=1 to nn do begin
readln (f1,n,m,x,y);
if min(x,min(n-x+1,min(y,m-y+1)))<=5 then writeln (f2,'DA') else
writeln (f2,'NU');
end;
close (f1);
close (f2);
end.