USCAO1.2 双重回文数

双重回文数

题目描述

如果一个数从左往右读和从右往左读都是一样，那么这个数就叫做“回文数”。例如，12321就是一个回文数，而77778就不是。当然，回文数的首和尾都应是非零的，因此0220就不是回文数。

事实上，有一些数（如21），在十进制时不是回文数，但在其它进制（如二进制时为10101）时就是回文数。

编一个程序，从文件读入两个十进制数N (1 <= N <= 15)S (0 < S < 10000)然后找出前N个满足大于S且在两种或两种以上进制（二进制至十进制）上是回文数的十进制数，输出到文件上。

本问题的解决方案不需要使用大于32位的整型。

分析：从s+1开始向后枚举，把每个数强行转换为2~10进制存在数组里判断。

代码

const
  maxn=100000;
var
  a:array[0..maxn] of longint;
  i,j,n,s,p,q:longint;


procedure change(x,m:longint);
begin
  p:=0;
  while x<>0 do
    begin
      inc(p);
      a[p]:=x mod m;
      x:=x div m;
    end;
end;


function check:boolean;
var
  i,j:longint;
begin
  check:=true;
  i:=1;j:=p;
  while i<=j do
    begin
      if a[i]<>a[j] then exit(false);
      inc(i);dec(j);
    end;
end;


begin
  readln(n,s);
  while n>0 do
    begin
      inc(s);
      q:=0;
      for i:=2 to 10 do
        begin
          change(s,i);
          if check then inc(q);
          if q=2 then begin dec(n);writeln(s);break;end;
        end;
    end;
end.