/CHUSO - Chữ số

<Problem>

http://ntucoder.net/Problem/Details/3357
              Uses Crt;
        Var n:longint; i:longint; k:qword; res:qword;  j:longint;   num,d:qword;
        Function Tim(k:qword):qword;
        var tg:qword; l,r:qword;
        begin
            l:=1; r:=1414213562;
            while l<r do begin
                tg:=(l+r) div 2;  //writeln(tg);
                if k=(tg+1)*tg div 2 then exit(tg);
                if (k<(tg+1)*tg div 2) then r:=tg-1
                 else
                  if (k>(tg+1)*tg div 2) then l:=tg+1;
                 inc(d);
                //writeln(l,' ',r);
            end;  //writeln('k');
            //if l=r then exit(tg);
            //writeln(tg);
            //Tim:=tg;
            exit(tg);
        end;
        Begin
            readln(n);
            i:=1;       d:=0;    d:=d+n;
            while i<=n do
             begin
                 readln(k);
                 //k:=1000000000000000000;
                 //num:=tim(k);
                 num:=trunc((sqrt(1+k*8)-1)/2);
                 //writeln(num);
                 if (k=((num+1)*num div 2)) then num:=num-1; 
                 //while (k>((num+1)*num div 2)) do begin inc(d); num:=num+1; end;
                 //while (k<=((num+1)*num div 2)) do begin inc(d); num:=num-1; end;
                  //writeln(num);
                 res:=(k-(num+1)*num div 2) mod 10;
                 writeln(res);
                 inc(i);
             end;
             //writeln(d);
             //readln;
        End.