Cod sursa(job #907844)

Utilizator Dddarius95Darius-Florentin Neatu Dddarius95 Data 8 martie 2013 13:26:57
Problema Jocul NIM Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.49 kb
program joc_nim;
var t,i,nrp,x,y:word;
    intrare,iesire:array[1..1 shl 17] of char;
    f,g:text;
begin
assign(f,'nim.in');reset(f); settextbuf(f,intrare);
assign(g,'nim.out');rewrite(g); settextbuf(g,iesire);
readln(f,t);
while t>0 do
 begin
 readln(f,nrp); x:=0;
 for i:=1 to nrp do begin
                    read(f,y);
                    x:=x xor y;
                    end;
 if x>0 then writeln(g,'DA')
        else writeln(g,'NU');
 dec(t);
 end;
close(f); close(g);
end.