MDIGITS2 - First Number

Tác giả: ll931110

Ngôn ngữ: Pascal

{$H+}
{$MODE DELPHI}
Program MDIGITS2;
Const
  input  = '';
  output = '';
Var
  n: integer;
  s: string;

Procedure init;
Var
  f: text;
  i: integer;
  k: string;
Begin
  s:= '';
  Assign(f, input);
    Reset(f);

  Readln(f, n);
  For i:= 1 to n do
    Begin
      str(i,k);
      s:= s + k;
    End;

  Close(f);
End;

Procedure solve;
Var
  f: text;
  k: string;
Begin
  str(n,k);

  Assign(f, output);
    Rewrite(f);
    Writeln(f, pos(k,s));
  Close(f);
End;

Begin
  init;
  solve;
End.

Download