一大堆的福利之【USACO题库】Superprime Rib特殊的质数肋骨

题目描述

农民约翰母牛总是产生最好的肋骨。

你能通过农民约翰和美国农业部标记在每根肋骨上的数字认出它们。

农民约翰确定他卖给买方的是真正的质数肋骨,是因为从右边开始切下肋骨,每次还剩下的肋骨上的数字都组成一个质数,举例来说:

7 3 3 1

全部肋骨上的数字 7331是质数;三根肋骨 733是质数;二根肋骨 73 是质数;当然,最后一根肋骨 7 也是质数。

7331 被叫做长度 4 的特殊质数。

写一个程序对给定的肋骨的数目 N (1<=N<=8),求出所有的特殊质数。

数字1不被看作一个质数。

PROGRAM NAME: sprime

INPUT FORMAT

单独的一行包含N。

SAMPLE INPUT (file sprime.in) 

4

OUTPUT FORMAT

按顺序输出长度为 N 的特殊质数,每行一个。

SAMPLE OUTPUT (file sprime.out)

2333

2339

2393

2399

2939

3119

3137

3733

3739

3793

3797

5939

7193

7331

7333

7393

const
    s:array[1..4]of longint=(2,3,5,7);
    a:array[1..4]of longint=(1,3,7,9);
var
    n,i:longint;
procedure dfs(i,tmp:longint);
var
    j:longint;
begin
    for j:=3 to trunc(sqrt(tmp)) do
        if tmp mod j=0 then exit;
    if i=n then begin writeln(tmp);exit;end;
    for j:=1 to 4 do dfs(i+1,tmp*10+a[j]);
end;
begin
    readln(n);
    for i:=1 to 4 do
        dfs(1,s[i]);
end.