Palindromic Squares 回文平方数

 Palindromic Squares 回文平方数

回文数是指从左向右念和从右像做念都一样的数.如 12321 就是一个典型的回文数.
给定一个进制 B(2<=B<=20 十进制),输出所有的大于等于 1 小于等于 300 且它的平方用 B 进制表示
时是回文数的数.用’A’,’B’……表示 10,11 等等.

PROGRAM NAME: palsquare
INPUT FORMAT
共一行,一个单独的整数 B(B 用十进制表示).
SAMPLE INPUT (file palsquare.in) 
10

OUTPUT FORMAT
每行两个数字,第二个数是第一个数的平方,且第二个数是回文数.(注意:这两个数都应该在 B 那个
进制下)
SAMPLE OUTPUT (file palsquare.out)
1 1
2 4
3 9
11 121
22 484
26 676
101 10201
111 12321
121 14641
202 40804
212 44944
264 69696

===================================

===========================

{
ID:jie19952
PROG:palsquare
LANG:PASCAL
}
var
  d:array[0..20]of char=('0','1','2','3','4','5','6','7','8','9','A',
                         'B','C','D','E','F','G','H','I','J','K');
var
  n:longint;
procedure init;
begin
  assign(input,'palsquare.in');
  assign(output,'palsquare.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

function change(t:longint):string;
var
  i:longint;
  st:string;
begin
  st:='';
  while t>0 do
    begin
      st:=st+d[t mod n];
      t:=t div n;
    end;
  change:='';
  for i:=length(st) downto 1 do
    change:=change+st[i];
end;

function check(t:longint):boolean;
var
  st:string;
  i,len:longint;
begin
  check:=true;
  st:=change(t);
  len:=length(st);
  for i:=1 to (len shr 1) do
    if st[i]<>st[len-i+1] then exit(false);
end;

procedure main;
var
  i:longint;
begin
  readln(n);
  for i:=1 to 300 do
    begin
     // if check(i) then
        begin
          if check(i*i) then
            begin
              writeln(change(i),' ',change(i*i));
            end;
        end;
    end;
end;

begin
  init;
  main;
  terminate;
end.