MDIGITS2 - First Number

Tác giả: ladpro98

Ngôn ngữ: Pascal

program mdigits2;
uses    sysutils;
var     s:ansistring;
        i,n :longint;
begin
        readln(n);
        for i:=1 to n do
        s:=s+inttostr(i);
        write(pos(inttostr(n),s));
end.

Download