Program number;
Uses    crt;
Var     N: longint;
        tep1, tep2: text;
Function luythua(x: integer): longint;
Var     i: integer;
        S: longint;
Begin
        S:=9;
        If x=1 then luythua:=S
        else begin
                   For i:=2 to x do S:=S*10;
                   luythua:=S;
             end;
end;
Procedure main(var y: longint);
Var       B: longint;
          a,j: integer;
Begin
        a:=1;
        While y>=luythua(a)*a do
        begin
             dec(y,luythua(a)*a);
             inc(a);
        end;
        If y=0 then writeln(tep2,'9')
        else begin
                   B:=y mod a;
                   y:=y div a;
                   inc(y);
                   If B=0 then writeln(tep2,pred(y) mod 10)
                   else begin
                        B:=a-B;
                        For j:=1 to B do
                        begin
                                a:=y mod 10;
                                y:=y div 10;
                        end;
                        writeln(tep2,a);
                   end;
             end;
end;
Begin
        Assign(tep1,'Number.inp'); Reset(tep1);
        Assign(tep2,'Number.out'); Rewrite(tep2);
        While not eof(tep1) do
        begin
             Readln(tep1,N);
             main(N);
        end;
        close(tep1); close(tep2);
End.

uses crt;
var S, Z : ansistring;
    N, i : longint;
    f1, f2 : text;
    
begin
clrscr;
assign(f1, 'Number.inp'); reset(f1);
assign(f2, 'Number.out'); rewrite(f2);

while not eof(f1) do
    begin
        readln(f1, N);
        S := ''; i := 1;
        while length(S) < N do
            begin
                str(i, Z);
                S := S + Z;
                inc(i);
            end;
        writeln(f2, S[n]);
    end;

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