一道简单的pascal题目，大家快来做

来源：百度知道 编辑：UC知道 时间：2024/05/07 11:21:45
编程验证哥德巴赫猜想：不小于6的偶数由2个素数组成（假设<=60，利用函数解决问题）,只要输出一种可能性即可。
格式：6=3+3
.......
（用pascal编，快，在线等 顺便加上while not eof do语句
不会的就算了，不用加了）

var a,b,j:integer;
function fa(x:integer):boolean;
var i:integer;
f:boolean;
begin
if x<=1 then
begin
f:=false;
exit;
end;
f:=true;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
begin
f:=false;
break;
end;
fa:=f;
end;
begin
for j:= 6 to 100 do
begin
if not odd(j) then
begin
a:=1;
repeat
a:=a+2;
b:=j-a;
until fa(a) and fa(b);
write(j,'=',a,'+',b,' ');
end;
end;
end.

m:=0;
for i:=1 to 60 do
begin
if 是素数 then
begin
inc(m);a[m]:=i;
end;
end;
for i:=6 to 60 do
begin
for j:=1 to m do
for k:=1 to m do