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

解题思路：先读入n和m，用s进行计数，用while循环，用布尔型函数判断这个数是否满足题意，即在两种以上进制（二进制至十进制）上是回文数的十进制数，如果满足条件，就把计数器s+1，并进行输出。

程序：

const

  f:array[0..9]of char=('0','1','2','3','4','5','6','7','8','9');

var

  i,j,k,m,n,s:longint;

  s1:string;

function check(i:longint):boolean;

  var

    j,k,l,kk,base:longint;

    dd:boolean;

  begin

     kk:=0;

     for base:=2 to 10 do

       begin

         s1:='';

         dd:=true;

         j:=i;

         while j<>0 do

           begin

             k:=j mod base;

             j:=j div base;

             s1:=s1+f[k];

           end;

         k:=length(s1);

         for l:=1 to k div 2 do

           if s1[l]<>s1[k-l+1] then dd:=false;

           if dd then inc(kk);

           if kk>=2 then  exit(true);

       end;

     exit(false);

end;

begin

  readln(n,m);

  s:=0;

  while s

    begin

      inc(m);

      if check(m) then begin inc(s);writeln(m);end;

    end;

end.