function inv(x:integer):integer;
   var uc,n:integer;
begin
        n:=0;
        while (x<>0) do
        begin

        uc:=x mod 10;
        x:=x div 10;
        n:=n*10 + uc;

        end;
        inv:=n;

end;

var T,nr,i,j,ok:integer;
    f1,f2:text;
begin
        assign(f1,'invers.in');
        reset(f1);
        assign(f2,'invers.out');
        rewrite(f2);

        readln(f1,T);

        for i:=1 to T do
        begin
        readln(f1,nr);

                ok:=0;

        for j:=1 to nr do
        if j+inv(j)=nr then begin ok:=1; break;end;


        if ok=1 then writeln(f2,'DA')
                else writeln(f2,'NU');

        end;
        close(f1);
        close(f2);

end.