usaco 1.5.3——sprime

Superprime Rib 特殊的质数肋骨

描述

农民约翰的母牛总是生产出最好的肋骨。你能通过农民约翰和美国农业部标记在每根肋骨上的数字认出它们。

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

7 3 3 1

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

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

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

格式

PROGRAM NAME: sprime

INPUT FORMAT:

(file sprime.in)

单独的一行包含N。

OUTPUT FORMAT:

(file sprime.out)

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

SAMPLE INPUT

4

SAMPLE OUTPUT

2333

2339

2393

2399

2939

3119

3137

3733

3739

3793

3797

5939

7193

7331

7333

7393

Compiling...
Compile: OK

Executing...
   Test 1: TEST OK [0.000 secs, 276 KB]
   Test 2: TEST OK [0.000 secs, 276 KB]
   Test 3: TEST OK [0.000 secs, 276 KB]
   Test 4: TEST OK [0.000 secs, 276 KB]
   Test 5: TEST OK [0.000 secs, 276 KB]

All tests OK.

YOUR PROGRAM ('sprime') WORKED FIRST TIME! That's fantastic -- and a rare thing. Please accept these special automated congratulations.

分析：这道题也是极为easy，

有了上一道的枚举构造的思想，

很容易就能编出来。

上代码，不解释。

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

{ ID: codeway3 PROG: sprime LANG: PASCAL } program sprime;   var     i,j,n,m,k,l:longint;     c:array[0..5]of longint;     function prime(x:longint):boolean;     var       i,j:longint;     begin       for j:=2 to trunc(sqrt(x)) do         if x mod j=0 then exit(false);       exit(true);     end;     procedure doing(loc,x:longint);     var       i,j:longint;     begin       if loc=n then writeln(x)         else for i:=0 to 5 do           begin             j:=x*10+c[i];             if prime(j) then doing(loc+1,j);           end;     end;     begin     assign(input,'sprime.in');     reset(input);     assign(output,'sprime.out');     rewrite(output);     readln(n);     c[0]:=1;c[1]:=2;c[2]:=3;c[3]:=5;c[4]:=7;c[5]:=9;     for i:=1 to 5 do       if prime(c[i]) then doing(1,c[i]);     close(input);     close(output);   end.