MDIGITS2 - First Number

Tác giả: skyvn97

Ngôn ngữ: Pascal

var
    n:longint;
    s,t:ansistring;
    i:longint;
begin
    readln(n);
    s:='';
    for i:=1 to n do
        begin
            str(i,t);
            s:=s+t;  
        end;
    str(n,t);
    write(pos(t,s));
end.

Download