创业项目融资方案:歌德巴赫猜想

来源：百度文库 编辑：中科新闻网 时间：2024/05/05 18:34:30
我的歌德巴赫猜想是这样的:
s:输入的数；
n:第一个素数；
m:第二个素数；
i,j,x,y:控制变量；
program q9;
var
s,n,m,i,j,x,y:integer;
begin
readln(s);
j:=1;
i:=1;
for n:=2 to trunc(s/2) do
begin
repeat
j:=j+1;
x:=n mod j;
until x=0 or (n-1<j);
if x<>0 then
begin
m:=s-n;
repeat
i:=i+1;
y:=m mod i;
until y:=0 or i>m-1;
if y<>0 then write(s,'=',n,'+',m)
end;
end;
end.
可是在运行时(n-1<j); 那一段出错,帮帮我

陈景润能帮你！！！

歌德巴赫猜想 歌德巴赫猜想是什么 什么是歌德巴赫猜想？ 什么是歌德巴赫猜想 什么是歌德巴赫猜想 歌德巴赫猜想是什么？ 什么是歌德巴赫猜想？ 歌德巴赫猜想是什么? 什么是歌德巴赫猜想 歌德巴赫猜想是什么？