USACO 1.5 特殊的质数肋骨

Description农民约翰母牛总是产生最好的肋骨。你能通过农民约翰和美国农业部标记在每根肋骨上的数字认出它们。农民约翰确定他卖给买方的是真正的质数肋骨,是因为从右边开始切下肋骨,每次还剩下的肋骨上的数字都组成一个质数,举例来说:7 3 3 1全部肋骨上的数字 7331是质数;三根肋骨 733是质数;二根肋骨 73 是质数;当然,最后一根肋骨 7
也是质数。7331 被叫做长度 4 的特殊质数。写一个程序对给定的肋骨的数目 N (1<=N<=8),求出所有的特殊质数。数字1不被看作一个质数。Input单独的一行包含N。Output按顺序输出长度为 N
的特殊质数,每行一个。Sample Input

4

Sample Output

2333

2339

2393

2399

2939

3119

3137

3733

3739

3793

3797

5939

7193

7331

7333

7393

解题思路：先定义两个常量数组s和a，分别为位数只有一位的质数，另一个数组为一位数的奇数。首先用搜索，把第一位数从s[1]到s[4]进行尝试，然后如果x=n就判断它是否为质数，如果是就输出并退出，如果不是质数就直接退出。再往下一位递归，重复同样的动作，最后输出的肯定都是四位数的特殊质数。

程序：

const

s:array[1..4] of integer=(2,3,5,7);

a:array[1..5] of integer=(1,3,5,7,9);

var

i,j,k,m,n,d,t:longint;

function check(x:longint):boolean;

var

i:longint;

begin

for i:=2 to trunc(sqrt(x)) do

if x mod i=0 then exit(false);

exit(true);

end;

procedure dfs(x,now:longint);

var

i,j,k:longint;

begin

if x=n then begin if check(now) then writeln(now); exit; end;

if not check(now) then exit;

for i:=1 to 5 do

dfs(x+1,now*10+a[i]);

end;

begin

readln(n);

for i:=1 to 4 do

dfs(1,s[i]);

end.