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.