作业帮 > 综合 > 作业

哥德巴赫猜想的命题之一是:大于6 的偶数等于两个素数之和 编程将6~100所有偶数表示成两个素数之和.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/01 21:23:53
哥德巴赫猜想的命题之一是:大于6 的偶数等于两个素数之和 编程将6~100所有偶数表示成两个素数之和.
用pascal编程,
var a,b,c,d,e,f,g,i,x,y:longint;
begin
e:=1;
for i:=6 to 100 do
if i mod 2=0 then
for b:=3 to i div 2 do
begin
e:=1;
for c:=2 to round(sqrt(b)) do
if b mod c=0 then e:=0;
if e=1 then
begin
f:=i-b;
for g:=2 to round(sqrt(f)) do
if f mod g=0 then e:=0;
if (e=1)and(f>2)and(b>2)then
begin writeln(i,'=',b,'+',f);break;end;
end;
end;
end.
我这个程序每个素数都输出一组,如果要多组,就把break删掉