作业帮 > 综合 > 作业

编程验证歌德巴赫猜想.即一个大于等于6的偶数可以表示为两个素数之和 用pascal

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/20 08:46:50
编程验证歌德巴赫猜想.即一个大于等于6的偶数可以表示为两个素数之和 用pascal
var n,i,j:integer;
function flag(n:integer):boolean;
var i:integer;
begin
flag:=true;
for i:=2 to n-1 do
begin
if n mod i=0 then begin flag:=false;break;end;
end;
end;
begin
readln(n);
for j:=4 to n do
if j mod 2=0 then
for i:=2 to j div 2 do
begin
if (flag(i)=true) and (flag(j-i)=true) then writeln(j,'=',i,'+',j-i);
end;
end.