作业帮100以内的8对孪生质数是多少?(写下数）Pascal语言
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/09 17:09:08
100以内的8对孪生质数是多少?(写下数）Pascal语言
100以内的8对孪生质数是多少?(写下数）Pascal语言
100以内的8对孪生质数是多少?(写下数）Pascal语言
var
i,k:integer;
function f(n:integer):boolean;
var
x,y:integer;
begin
f:=false;
for x:=1 to n div 2 do
if n mod x=0 then exit;
f:=true;
end;
begin
for i:=2 to 100 do
if f(i)and f(i+2) then
writeln(i,' ',i+2);
end.
答案：
3 5
5 7
11 13
17 19
29 31
41 43
59 61
71 73
var
i:integer;
begin
for i:=3 to 97 do{因为1不是质数，4不是质数}
begin
b:=true;{恢复判断的变量}
for j:=2 to trunc(sqrt(i+2)) do
{所有的数在它的平方根以内没有...
全部展开
var
i:integer;
begin
for i:=3 to 97 do{因为1不是质数，4不是质数}
begin
b:=true;{恢复判断的变量}
for j:=2 to trunc(sqrt(i+2)) do
{所有的数在它的平方根以内没有被整除就是素数}
if (i mod j=0)or((i+2)mod j=0) then{被整除，是合数}
begin
b:=false;{改变判断的变量}
break; {停止j的循环，节省时间}
end;
if b=true then writeln(i,' ',i+2);{判断变量未改变，输出}
end；
end.
收起