[USACO 1.2.5] Dual Palindromes

[題目描述]

Dual Palindromes

雙重回文數

如果一個數從左往右讀和從右往左讀都是一樣，那麼這個數就叫做“迴文數”。例如，12321就是一個迴文數，而77778就不是。當然，迴文數的首和尾都應是非零的，因此0220就不是迴文數。
事實上，有一些數（如21），在十進制時不是迴文數，但在其它進制（如二進制時爲10101）時就是迴文數。 
編一個程序，從文件讀入兩個十進制數

• N (1 <= N <= 15)
• S (0 < S < 10000)

然後找出前N個滿足大於S且在兩種以上進制（二進制至十進制）上是迴文數的十進制數，輸出到文件上。 
本問題的解決方案不需要使用大於4字節的整型變量。

PROGRAM NAME: dualpal

INPUT FORMAT

只有一行，用空格隔開的兩個數N和S。

SAMPLE INPUT (file dualpal.in)

3 25

OUTPUT FORMAT

N行, 每行一個滿足上述要求的數，並按從小到大的順序輸出。

SAMPLE OUTPUT (file dualpal.out)

26
27
28

[解題思路]

樸素枚舉。

和上題基本一樣。每次檢查一個數，判斷是否合法，找到N個就Break。

[Code]

{
ID: zane2951
PROG: dualpal
LANG: PASCAL
}

program dualpal;
const
   word:array[0..9] of char=('0','1','2','3','4','5','6','7','8','9');

var
   n,st,up,len,i:longint;

//---------check-----------
function check(s:ansistring):boolean;
var
   i:longint;

begin
   for i:=1 to len>>1 do
      if s[i]<>s[len-i+1] then exit(false);
   exit(true);
end;

//---------modify----------
function modify(k,x:longint):ansistring;
var
   ss:ansistring;
   p:longint;

begin
   ss:='';
   while x>0 do
      begin
         p:=x mod k;
         x:=x div k;
         inc(len);
         ss:=word[p]+ss;
      end;
   exit(ss);
end;

//-----------run-----------
function run(x:longint):boolean;
var
   t,i:longint;
   s:ansistring;

begin
   t:=0;
   for i:=2 to 10 do
      begin
         len:=0;
         s:=modify(i,x);
         if check(s) then inc(t);
      end;
   if t>=2 then exit(true) else exit(false);
end;

//----------main-----------
begin
   assign(input,'dualpal.in'); reset(input);
   assign(output,'dualpal.out'); rewrite(output);
   readln(n,st); up:=0;
   for i:=st+1 to maxlongint do
      if run(i) then
         begin
            writeln(i);
            inc(up);
            if up=n then break;
         end;
   close(input); close(output);
end.