双重回文数
题目描述
如果一个数从左往右读和从右往左读都是一样,那么这个数就叫做“回文数”。例如,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.