Cod sursa(job #635289)
Utilizator | Dragan Andrei Gabriel dragangabriel | Data | 19 noiembrie 2011 09:29:17 |
---|---|---|---|
Problema | ChatNoir | Scor | 0 |
Compilator | fpc | Status | done |
Runda | .com 2011 | Marime | 0.48 kb |
program chatnoir;
var f,g:text;
n,i,j,m,x,y:longint;
function marcare(x,y,m,j:longint):longint;
var min:longint;
begin
min:=maxlongint;
if min>m then min:=m; if min>j then min:=j;
if min>x-m then min:=x-m;if min>y-j then min:=y-j;
marcare:=min;
end;
begin
assign(f,'chatnoir.in');reset(f);
assign(g,'chatnoir.out');rewrite(g);
readln(f,n);
for i:=1 to n do begin
readln(f,x,y,m,j);
if marcare(x,y,m,j)>2 then writeln(g,'NU') else writeln(g,'DA');
end;
close(g);
end.