Cod sursa(job #690349)
Utilizator | Data | 25 februarie 2012 15:51:30 | |
---|---|---|---|
Problema | Jocul NIM | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.34 kb |
var t, n, m, s, i, j, x:longint;
f, g:text;
begin
assign (f, 'nim.in'); reset (f);
assign (g, 'nim.out'); rewrite (g);
read (f, n);
for i := 1 to n do
begin
read (f, m);
s:=0;
for j := 1 to m do begin read (f, x); s:= s XOR x; end;
if s=0 then writeln (g, 'NU') else writeln (g, 'DA');
end;
close (f); close (g);
end.