program p21;
var f,g:text;
    nr,c,aux,x,i,j,n:longint;
    ok:boolean;
begin
assign(f,'invers.in');reset(f);
assign(g,'invers.out');rewrite(g);
readln(f,n);
for i:=1 to n do
begin
  readln(f,nr);
  if (nr=1) then writeln(g,'NU')
  else begin
  for j:=1 to nr do
  begin
      aux:=j;
      x:=0;
      while aux>0 do
        begin
        c:=aux mod 10;
        aux:=aux div 10;
        x:=x*10+c;
        end;
      if (j+x=nr) then begin
                       writeln(g,'DA');
                       ok:=true;
                       break;
                       end;
  end;
  if ok=false then writeln(g,'NU');
  end;
  end;
close(g);
end.