Cho số nguyên dương N và chữ số c, tìm số nguyên dương nhỏ nhất k thỏa k>N và trong biểu diễn của k trong hệ thập phân có chữ số c.
Dữ liệu: Cho trong tập tin văn bản Near.inp gồm 1 dòng duy nhất chứa số nguyên dương N và chữ số c, N và c cách nhau ít nhất 1 khoảng trắng, 0 < N < 32750, 0<=c<=9.
Kết quả: Cho trong tập tin văn bản Near.out, gồm 1 dòng duy nhất chứa số nguyên k tìm được.
Ví dụ :
Near.inp:
11 7
Near.out:
17
Uses crt;
Trả lờiXóaVar n,c,i:longint;
s1:string;
function test(a:longint):boolean;
Var s2:string;
Var j:longint;
Begin
str(a,s2);
For j:=1 to length(s2) do
If s2[j]=s1 then exit(true);
exit(false);
end;
Begin
readln(n);
readln(c);
str(c,s1);
For i:=n to n*1000 do
If test(i) then break;
Write(i);
readln;
end.