哥德巴赫1+1猜想（Goldbach’s Conjecture）_百度知道
哥德巴赫1+1猜想（Goldbach’s Conjecture）
p, p1, p2 :begin
while i&=100 do
while (i-j&=3)and p do
for k:=2 to j-1 do
if j mod k=0 then p1:=
if p1 then
for k:=2 to i-j-1 do
if (i-j)mod k=0 then p2:=
write(i:2,'=',j:2,'+',i-j:2,' ':4);
=0 then writeln
else j:=j+2
else j:=j+2
提问者采纳
完成填空后的程序如下：var& & i,j,k,n :& & p, p1, p2 :begin& & i:=6; &n:=0;& & while i&=100 do& & begin& & j:=3;& & p:=& & while (i-j&=3)and p do& & begin& & & & p1:=& & & & for k:=2 to j-1 do& & & & & & if j mod k=0 then p1:=& & & & if p1 then& & & & begin& & & & & & p2:=& & & & & & for k:=2 to i-j-1 do& & & & & & & & if (i-j)mod k=0 then p2:=& & & & & & if p1 and p2 then& & & & & & begin& & & & & & & p:=& & & & & & & n:=n+1;& & & & & & & write(i:2,'=',j:2,'+',i-j:2,' ':4);& & & & & & & if n mod 5=0 then writeln& & & & & & end& & & & & & else j:=j+2& & & & end& & & & else j:=j+2& && & i:=i+2;& &end.
提问者评价
虽然慢了但是谢谢
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}