大师作文网哥德巴猜想 pascal 程序
来源：学生作业帮 编辑：大师作文网作业帮 分类：综合作业 时间：2024/11/10 20:26:23
哥德巴猜想 pascal 程序
帮忙解一个pascal的 是哥德巴猜想 要求需要在一些重要地方解释 空白处一定要解释 可惜权限不够 打不下 只能挤挤了
const size=1000; var n,r,i,j,k,ans:integer; p:array[1..size] of integer; tmp:boolean; begin readln（n); r:=1； p[1]:=2; for i:=3 to n do begin ( ); for j；=1 to r do if i mod ( ) =0 then begin tmp:=false; break; end; if tmp then begin inc(r); ( ); end; end; ans:=0; for i；=2 to (n div 2) do begin tmp:=false; for j:=1 to r do for k:= j to r do if i+i=( ) then begin tmp:=true; break; end; if tmp then inc(ans); end; writeln(ans); end.end; writeln(ans); end.
帮忙解一个pascal的 是哥德巴猜想 要求需要在一些重要地方解释 空白处一定要解释 可惜权限不够 打不下 只能挤挤了
const size=1000; var n,r,i,j,k,ans:integer; p:array[1..size] of integer; tmp:boolean; begin readln（n); r:=1； p[1]:=2; for i:=3 to n do begin ( ); for j；=1 to r do if i mod ( ) =0 then begin tmp:=false; break; end; if tmp then begin inc(r); ( ); end; end; ans:=0; for i；=2 to (n div 2) do begin tmp:=false; for j:=1 to r do for k:= j to r do if i+i=( ) then begin tmp:=true; break; end; if tmp then inc(ans); end; writeln(ans); end.end; writeln(ans); end.
1.tmp：=true
2.j
3.not（tmp）
4.ans
再问： 能讲解一下吗 好的加分
再答： 额，我是偷偷上网的
2.j
3.not（tmp）
4.ans
再问： 能讲解一下吗 好的加分
再答： 额，我是偷偷上网的