1999年分区联赛普级组之二 回文数

Description

若一个数（首位不为零）从左向右读与从右向左读都一样，我们就将其称之为回文数。 
例如：给定一个10进制数56，将56加56（即把56从右向左读），得到121是一个回文数。 
又如：对于10进制数87： 
STEP1：87+78 = 165 STEP2：165+561 = 726 
STEP3：726+627 = 1353 STEP4：1353+3531 = 4884 
在这里的一步是指进行了一次N进制的加法，上例最少用了4步得到回文数4884。 
写一个程序，给定一个N（2<=N<=10，N=16）进制数M，求最少经过几步可以得到回文数。如果在30步以内（包含30步）不可能得到回文数，则输出“Impossible！” 

Input

 

Output

 

Sample Input

 

9 

87    

 

Sample Output

 

6

解题思路：先读入进制，再已字符串的形式读入，全部转化为十进制，再用类似高精度的方法把这个数和它的倒序数相加，如果判断到该处为回文数，就把当时的循环变量输出，并且结束整个程序，如果三十次都没用回文数，就输出Impossible!即可。

程序：

var 

  a,b:array[1..50]of longint;

  n,m,t,i,j,k,x,y,ans:longint;

  s:string;

begin

  readln(n);

  readln(s);

  t:=length(s);

  for i:=1 to t do

    if s[I] in ['0'..'9'] then a[t-i+1]:=ord(s[I])-ord('0')

      else a[t-i+1]:=ord(s[I])-ord('A')+10;

  for ans:=1 to 30 do

    begin

      for i:=1 to t do

        b[i]:=a[i]+a[t-i+1];

      for i:=1 to t do

        if b[i]>=n then begin b[i]:=b[i]-n; inc(b[i+1]); end;

      if b[t+1]>0 then inc(t);

      a:=b;

      x:=0;

      for i:=1 to t do

        if a[i]<>a[t-i+1] then begin x:=1; break; end;

      if x=0 then begin writeln('STEP=',ans); halt; end;

    end;

  writeln('Impossible!')

end.

版权属于: Chris

原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0ic.html

转载时必须以链接形式注明原始出处及本声明。