Usaco 1.3.4 牛式（Prime Cryptarithm）

题目：

 牛式

来源：

 Usaco1.3.4

题目大意：

 给定n个数字来代替*，输出成立的方案数   

              * * *

    x     * *

   ----------

        * * *

      * * *

   ----------

      * * * *

数据范围：

 数字怎么会大于10呢，还有没有0这个数字

样例： 

 5

 2 3 4 6 8

1

做题思路：

 不知别的方法，只会暴力枚举。枚举两个因式，然后判断其乘积。

知识点：

 枚举

{ID:Dount NamelessTASK:crypt1LANG:PASCAL}var b:array[0..9]of boolean; i,j,k,n:longint;function pd(x:longint):boolean;{<判断每个数字是否是规定数字>}var t:longint;begin t:=x; while t>0 do begin   ifnot b[t mod 10] then exit(false);  t:=t div 10; end; exit(true);end;begin assign(input,'crypt1.in');reset(input); assign(output,'crypt1.out');rewrite(output); fillchar(b,sizeof(b),false); readln(n); fori:=1 to n do begin  read(j);  b[j]:=true; end; fori:=111 to 999 do{<彰显暴力，枚举无敌>}  forj:=11 to 99 do   if(i*(j div 10)<1000)and(i*(j mod 10)<1000) then   if(pd(i))and(pd(j))and(pd(i*(j div 10)))and(pd(i*(j mod 10)))and(pd(i*j)) theninc(k); writeln(k); close(input);close(output);end.

题目来源：http://ace.delos.com/usacoprob2?a=RexmW8CclSt&S=crypt1