Description
考虑两个n位的十进制正整数A和B，都没有前导0。我们需要找到两个最近的靠近A的n位数（第一个比A大或与A相等，第二个严格比A小），使得它们的十进制表示是B中所有数字的某个排列。
比如说，假如A=3022并且B=1232，用B的数字我们可以获得以下的4位数字：1223, 1232, 1322, 2123, 2132, 2213, 2231, 2312, 2321, 3122, 3212和3221。最小的比A大或者和A相等的数，且用B中的数字组成的是3122，并且最大的严格比A小的数是2321。如果A=1232而且B=3022，可能的数字是2023, 2032, 2203, 2230, 2302, 2320, 3022, 3202和3220。在用B中数字组成的数中，最小的比A大或与A相等的数是2023，没有比A小的数。
对于给定的A和B，写一个程序closest找到这些“最靠近A”的数字，或者判断它们中的一个不存在。
Input
输入文件closest.in包含2行：
第1行为一个正整数A。
第1行为一个正整数B。
（A,B均为n位的正整数）
Output
输出文件closest.out共有2行。
第一行：最小的不比A小的n位数，没有前导0，包含B中的所有字符，以某一顺序排列。如果这样的数不存在，那么输出0。
第二行：最大的比A小的n位数，没有前导0，包含B中的所有字符，以某一顺序排列。如果这样的数不存在，那么输出0。
Sample Input
输入样例1
3075
6604
输入样例2
3000203
4562454
Sample Output
输出样例1
4066
0
输出样例2
4244556
2655444
题解
把b中各种数字个数记录下来，从左往右枚举每一位放上比它大的数字，一旦有一位大于它，则后面的数从小到大排序。
代码
vara,g:array[0..9] of longint;t:array[1..100] of longint;s,b:string;f:boolean;
procedure mains(x,y:longint);
vari:longint;
beginif (x-1=length(b))and(f) thenbeginfor i:=1 to x-1 dowrite(t[i]);writeln;halt;end;if (x-1=length(b))and(not f) thenexit;for i:=9 downto 0 doif (a[i]>0)and(f)or(a[i]>0)and(i<=y) thenbeginif (i=0)and(x=1) then break;if i<y then f:=true;dec(a[i]);t[x]:=i;mains(x+1,ord(s[x+1])-48);inc(a[i]);end;
end;
procedure main(x,y:longint);
vari:longint;
beginif x-1=length(b) thenbeginfor i:=1 to x-1 dowrite(t[i]);writeln;fillchar(t,sizeof(t),0);f:=false;a:=g;mains(1,ord(s[1])-48);writeln(0); halt;end;for i:=0 to 9 doif (a[i]>0)and(f)or(a[i]>0)and(i>=y) thenbeginif i>y then f:=true;dec(a[i]);t[x]:=i;main(x+1,ord(s[x+1])-48);inc(a[i]);end;
end;
vari:longint;
beginf:=false;readln(s);readln(b);for i:=1 to length(b) doinc(a[ord(b[i])-48]);g:=a;main(1,ord(s[1])-48);writeln(0);fillchar(t,sizeof(t),0);f:=false;a:=g;mains(1,ord(s[1])-48);writeln(0);
end.