素数环 问题描述 把从1到20这20个数摆成一个环，要求相邻的两个数的和是一个素数。

素数环 问题描述 把从1到20这20个数摆成一个环，要求相邻的两个数的和是一个素数。

我写过C的。。

const max=100;
var a:array[1..max] of longint;
procedure print;
var i:longint;
begin
for i:=1 to 15 do
write(a[i]:3);
writeln;
end;
function fac(p,q:longint):boolean;
var n,i:longint;
begin
n:=p+q;
fac:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
fac:=false;
break;
end;
end;
function fac1(n,k:longint):boolean;
var i:longint;
begin
fac1:=true;
for i:=k-1 downto 1 do
if a[i]=n then
begin
fac1:=false;
break;
end;
end;
procedure work(n:longint);
var i,t:longint;
begin
if n>15 then
if fac(a[15],a[1]) then
print
else for i:=2 to 15 do
if fac(i,a[n-1]) and fac1(i,n-1) then
begin
a[n]:=i;
work(n+1);
end;
end;
begin
a[1]:=1;
work(2);
end.

参考资料：你同学