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

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删掉