特殊的质数肋骨

2019-11-10 18:08:52

字体：大中小

来源：转载

供稿：网友

题目：

题目描述

农民约翰的母牛总是产生最好的肋骨。你能通过农民约翰和美国农业部标记在每根肋骨上的数字认出它们。农民约翰确定他卖给买方的是真正的质数肋骨,是因为从右边开始切下肋骨,每次还剩下的肋骨上的数字都组成一个质数,举例来说: 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.

上一篇：gdb调试命令

下一篇：SQL SERVER数据库修改是否区分大小写