一大堆的福利之【USACO题库】 Palindromic Squares回文平方数

题目描述

回文数是指从左向右念和从右像做念都一样的数。如12321就是一个典型的回文数。

给定一个进制B(2<=B<=20十进制)，输出所有的大于等于1小于等于300且它的平方用B进制表示时是回文数的数。用’A’,’B’……表示10，11等等。

输入

共一行，一个单独的整数B(B用十进制表示)。

输出

每行两个数字，第二个数是第一个数的平方，且第二个数是回文数。(注意:这两个数都应该在B那个进制下)

样例输入

10

样例输出

1 1
2 4
3 9
11 121
22 484
26 676
101 10201
111 12321
121 14641
202 40804
212 44944
264 69696

var
        a,b:string;
        zh:array [0..19] of char=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J');
        n,i,j,l,t:longint;
        bj:boolean;
begin
        readln(n);
        for i:=1 to 300 do
        begin
                t:=i*i; a:=''; bj:=true; l:=0;
                while t>0 do
                begin
                        inc(l);
                        a[l]:=zh[t mod n];
                        t:=t div n;
                end;
                for j:=1 to l div 2 do
                        if a[j]<>a[l+1-j] then begin bj:=false; break; end;
                if bj then begin
                        t:=i; b:=''; bj:=true;
                        while t>0 do
                        begin
                                b:=zh[t mod n]+b;
                                t:=t div n;
                        end;
                        write(b,' ');
                        for j:=1 to l do
                                write(a[j]);
                        writeln;
                end;
        end;
end.