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.