USACO 1.2 双重回文数 (枚举)

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

题解：

枚举，我也不啰嗦了···

代码：

var
  n,m,tot:longint;
  a:array[0..2000] of longint;
function check(len:longint):boolean;
var
  i:longint;
begin
  for i:=1 to len div 2 do
    if a[i]<>a[len-i+1] then
      exit(false);
  exit(true);
end;
procedure main;
var
  i,ans,t,len:longint;
begin
  tot:=0;
  while tot<n do
    begin
      inc(m);ans:=0;
      for i:=2 to 10 do
        begin
          len:=0; t:=m;
          while t<>0 do
            begin
              inc(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 then
        begin inc(tot);writeln(m);end;
    end;
end;
begin
  readln(n,m);
  main;
end.