Description
如果一个数从左往右读和从右往左读都是一样，那么这个数就叫做“回文数”。例如，12321就是一个回文数，而77778就不是。当然，回文数的首和尾都应是非零的，因此0220就不是回文数。
事实上，有一些数（如21），在十进制时不是回文数，但在其它进制（如二进制时为10101）时就是回文数。
编一个程序，从文件读入两个十进制数
? N (1 <= N <= 15)
? S (0 < S < 10000)
然后找出前N个满足大于S且在两种以上进制（二进制至十进制）上是回文数的十进制数，输出到文件上。
本问题的解决方案不需要使用大于4字节的整型变量。
Input
只有一行，用空格隔开的两个数N和S。
Output
N行, 每行一个满足上述要求的数，并按从小到大的顺序输出。
Sample Input
3 25
Sample Output
26
27
28
题解：
枚举，我也不啰嗦了···
代码：
varn,m,tot:longint;a:array[0..2000] of longint;
function check(len:longint):boolean;
vari:longint;
beginfor i:=1 to len div 2 doif a[i]<>a[len-i+1] thenexit(false);exit(true);
end;
procedure main;
vari,ans,t,len:longint;
begintot:=0;while tot<n dobegininc(m);ans:=0;for i:=2 to 10 dobeginlen:=0; t:=m;while t<>0 dobegininc(len);a[len]:=t mod i;t:=t div i;end;if check(len) then inc(ans);if ans>=2 then break;end;if ans>=2 thenbegin inc(tot);writeln(m);end;end;
end;
beginreadln(n,m);main;
end.