MDIGITS2 - First Number

Tác giả: RR

Ngôn ngữ: Pascal

var
  n:longint;
  ss,s:ansistring;
begin
  s:='';
  for n:=1 to 100000 do
    begin
      str(n,ss);
      s:=s+ss;
    end;
  readln(ss);
  writeln(pos(ss,s));
end.

Download