Cod sursa(job #1086860)

Utilizator Mihai_ChihaiMihai Chihai Mihai_Chihai Data 18 ianuarie 2014 17:01:00
Problema Jocul NIM Scor 80
Compilator fpc Status done
Runda Arhiva educationala Marime 0.54 kb
program nim;
var t ,n,a,i,xorsum:longint;
begin

  assign(input,'nim.in'); reset(INPUT);
  assign(output,'nim.out'); rewrite(output);
  readln(T);
  while t<>0 do begin
                readln(n);
                xorsum:=0;
                for i:=1 to n do begin
                                 read(a);
                                 xorsum:=xorsum xor a;
                                 end;
                if xorsum<>0 then writeln('DA') else writeln('NU');
                dec(t);
                end;
  close(output);
end.