素数环pascal【问题描述】将1~n这n个数字首尾相连,形成一个圆环,要求圆环上任意两个相邻的数字之和都是一个素数,请编程输出符合条件的素数环.【输入数据】输入数据仅一行,包含一个正
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/02 12:14:38
![素数环pascal【问题描述】将1~n这n个数字首尾相连,形成一个圆环,要求圆环上任意两个相邻的数字之和都是一个素数,请编程输出符合条件的素数环.【输入数据】输入数据仅一行,包含一个正](/uploads/image/z/3925972-28-2.jpg?t=%E7%B4%A0%E6%95%B0%E7%8E%AFpascal%E3%80%90%E9%97%AE%E9%A2%98%E6%8F%8F%E8%BF%B0%E3%80%91%E5%B0%861%EF%BD%9En%E8%BF%99n%E4%B8%AA%E6%95%B0%E5%AD%97%E9%A6%96%E5%B0%BE%E7%9B%B8%E8%BF%9E%2C%E5%BD%A2%E6%88%90%E4%B8%80%E4%B8%AA%E5%9C%86%E7%8E%AF%2C%E8%A6%81%E6%B1%82%E5%9C%86%E7%8E%AF%E4%B8%8A%E4%BB%BB%E6%84%8F%E4%B8%A4%E4%B8%AA%E7%9B%B8%E9%82%BB%E7%9A%84%E6%95%B0%E5%AD%97%E4%B9%8B%E5%92%8C%E9%83%BD%E6%98%AF%E4%B8%80%E4%B8%AA%E7%B4%A0%E6%95%B0%2C%E8%AF%B7%E7%BC%96%E7%A8%8B%E8%BE%93%E5%87%BA%E7%AC%A6%E5%90%88%E6%9D%A1%E4%BB%B6%E7%9A%84%E7%B4%A0%E6%95%B0%E7%8E%AF.%E3%80%90%E8%BE%93%E5%85%A5%E6%95%B0%E6%8D%AE%E3%80%91%E8%BE%93%E5%85%A5%E6%95%B0%E6%8D%AE%E4%BB%85%E4%B8%80%E8%A1%8C%2C%E5%8C%85%E5%90%AB%E4%B8%80%E4%B8%AA%E6%AD%A3)
素数环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