素数环pascal【问题描述】将1～n这n个数字首尾相连,形成一个圆环,要求圆环上任意两个相邻的数字之和都是一个素数,请编程输出符合条件的素数环.【输入数据】输入数据仅一行,包含一个正
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/22 22:41:54
素数环pascal【问题描述】将1～n这n个数字首尾相连,形成一个圆环,要求圆环上任意两个相邻的数字之和都是一个素数,请编程输出符合条件的素数环.【输入数据】输入数据仅一行,包含一个正
素数环pascal
【问题描述】将1～n这n个数字首尾相连,形成一个圆环,要求圆环上任意两个相邻的数字之和都是一个素数,请编程输出符合条件的素数环.
【输入数据】输入数据仅一行,包含一个正整数n（n
素数环pascal【问题描述】将1～n这n个数字首尾相连,形成一个圆环,要求圆环上任意两个相邻的数字之和都是一个素数,请编程输出符合条件的素数环.【输入数据】输入数据仅一行,包含一个正
var
k:integer;
a:array[1..20]of integer; //按顺序存20个数
function pd1(i,j:integer):boolean; //判断(pd)j在1到i-1有没有出现
begin
pd1:=true;
for k:=1 to i-1 do
if a[k]=j then
begin
pd1:=false;
exit;
end;
end;
function pd2(x:integer):boolean;//判断x是否为质数
begin
pd2:=true;
for k:=2 to trunc(sqrt(x)) do
if x mod k=0 then
begin
pd2:=false;
exit;
end;
end;
function pd3(i,j:integer):boolean;//判断i后面能不能接j
begin
pd3:=true;
if i