求出n位數中滿足條件的數字,去除首位,每次還剩下的數字都組成乙個質數,舉例來說: 7 3 3 1 全部肋骨上的數字 7331是質數;三根肋骨 733是質數;二根肋骨 73 是質數;當然,最後一根肋骨 7 也是質數。 7331 被叫做長度 4 的特殊質數。寫乙個程式對給定的肋骨的數目 n (1<=n<=8),求出所有的特殊質數。數字1不被看作乙個質數。
4
2333
2339
2393
2399
2939
3119
3137
3733
3739
3793
3797
5939
7193
7331
7333
7393
列舉數字,每次給乙個質數首位加上乙個數字再判斷是不是質數。以此類推直到這個數字有n位。
var
n,l:longint;
function
stt(x:longint):boolean;
var i:longint;
begin
if x=1
then
exit(false);
for i:=2
to trunc(sqrt(x)) do
if x mod i=0
then
exit(false);
exit(true);
end;
procedure
tt(x,y:longint);
var i:longint;
begin
for i:=1to9
doif stt(y*10+i) then
if x=n then writeln(y*10+i)
else tt(x+1,y*10+i);
end;
begin
readln(n);
tt(1,0);
end.
DFS 特殊的質數肋骨
時間限制 1000ms 記憶體限制 256000kb 題目描述 農民約翰母牛總是產生最好的肋骨。你能通過農民約翰和美國農業部標記在每根肋骨上的數字認出它們。農民約翰確定他賣給買方的是真正的質數肋骨,是因為從右邊開始切下肋骨,每次還剩下的肋骨上的數字都組成乙個質數,舉例來說 7 3 3 1 全部肋骨上...
特殊的質數肋骨 DFS
農民約翰母牛總是產生最好的肋骨。你能通過農民約翰和美國農業部標記在每根肋骨上的數字認出它們。農民約翰確定他賣給買方的是真正的質數肋骨,是因為從右邊開始切下肋骨,每次還剩下的肋骨上的數字都組成乙個質數,舉例來說 7 3 3 1 全部肋骨上的數字 7331是質數 三根肋骨 733是質數 二根肋骨 73 ...
DFS 特殊的質數肋骨
時間限制 1000ms 記憶體限制 256000kb 題目描述 農民約翰母牛總是產生最好的肋骨。你能通過農民約翰和美國農業部標記在每根肋骨上的數字認出它們。農民約翰確定他賣給買方的是真正的質數肋骨,是因為從右邊開始切下肋骨,每次還剩下的肋骨上的數字都組成乙個質數,舉例來說 7 3 3 1 全部肋骨上...