题目描述农民约翰的母牛总是产生最好的肋骨。你能通过农民约翰和美国农业部标记在每根肋骨上的数字认出它们。农民约翰确定他卖给买方的是真正的质数肋骨,是因为从右边开始切下肋骨,每次还剩下的肋骨上的数字都组成一个质数,举例来说: 7 3 3 1 全部肋骨上的数字 7331是质数;三根肋骨 733是质数;二根肋骨 73 是质数;当然,最后一根肋骨 7 也是质数。 7331 被叫做长度 4 的特殊质数。写一个程序对给定的肋骨的数目 N (1<=N<=8),求出所有的特殊质数。数字1不被看作一个质数。输入输出格式输入格式：单独的一行包含N。输出格式：按顺序输出长度为 N 的特殊质数,每行一个。输入输出样例输入样例#1：4输出样例#1：2333233923932399293931193137373337393793379759397193733173337393题解：这道题用简单的深搜即可，先判断一下是不是质数。var n:longint; a:array[1..8,1..4] of longint; b:array[1..8] of longint;PRocedure init;var i,j:longint;begin readln(n); a[1,1]:=2; a[1,2]:=3; a[1,3]:=5; a[1,4]:=7; for i:=2 to 8 do begin a[i,1]:=1; a[i,2]:=3; a[i,3]:=7; a[i,4]:=9; end;end;function ss(x:longint):boolean;var j:longint;begin ss:=true; for j:=2 to trunc(sqrt(x)) do if x mod j=0 then begin ss:=false; break; end;end;procedure dfs(dep,s:longint);var i,j,k:longint;begin if dep>n then begin for i:=1 to n do write(b[i]); writeln; exit; end; for i:=1 to 4 do if ss(s*10+a[dep,i]) then begin b[dep]:=a[dep,i]; dfs(dep+1,s*10+a[dep,i]); end;end;begin init; dfs(1,0);end.
