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.