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.
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.