MDIGITS2 - First Number

Tác giả: khuc_tuan

Ngôn ngữ: Pascal

//{$APPTYPE CONSOLE}
 {$MODE DELPHI}

uses
    SysUtils;
    
var
    s : ansistring;
    n, i : integer;
begin
    read(n);
    for i:=1 to n do
        s := s + IntToStr(i);
    writeln(strpos( PChar(s), PChar(IntToStr(n))) - PChar(s) + 1);
end.

Download