題目：
題目描述
農民約翰的母牛總是產生最好的肋骨。你能通過農民約翰和美國農業部標記在每根肋骨上的數字認出它們。農民約翰確定他賣給買方的是真正的質數肋骨,是因為從右邊開始切下肋骨,每次還剩下的肋骨上的數字都組成一個質數,舉例來說: 7 3 3 1 全部肋骨上的數字 7331是質數;三根肋骨 733是質數;二根肋骨 73 是質數;當然,最后一根肋骨 7 也是質數。 7331 被叫做長度 4 的特殊質數。寫一個程序對給定的肋骨的數目 N (1<=N<=8),求出所有的特殊質數。數字1不被看作一個質數。
輸入輸出格式
輸入格式： 單獨的一行包含N。
輸出格式： 按順序輸出長度為 N 的特殊質數,每行一個。
作者思路：dfs，2,3,5,7開頭；加1,3,7,9.
代碼：
var n:integer; i:longint;function check(n:string):boolean;var t,code,i:longint;begin val(n,t,code); if t=1 then exit(false); for i:=2 to trunc(sqrt(t)) do if t mod i=0 then exit(false); exit(true);end;PRocedure search(s:string);begin if length(s)=n then begin writeln(s); exit; end; if check(s+'1') then search(s+'1'); if check(s+'3') then search(s+'3'); if check(s+'7') then search(s+'7'); if check(s+'9') then search(s+'9');end;begin read(n); search('2'); search('3'); search('5'); search('7');end.新聞熱點
疑難解答
