哥德巴猜想 pascal 程序帮忙解一个pascal的 是哥德巴猜想 要求需要在一些重要地方解释 空白处一定要解释 可惜权限不够 打不下 只能挤挤了const size=1000; var n,r,i,j,k,ans:integer; p:array[1..size] of inte
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/26 21:05:28
哥德巴猜想 pascal 程序帮忙解一个pascal的 是哥德巴猜想 要求需要在一些重要地方解释 空白处一定要解释 可惜权限不够 打不下 只能挤挤了const size=1000; var n,r,i,j,k,ans:integer; p:array[1..size] of inte
哥德巴猜想 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 程序帮忙解一个pascal的 是哥德巴猜想 要求需要在一些重要地方解释 空白处一定要解释 可惜权限不够 打不下 只能挤挤了const size=1000; var n,r,i,j,k,ans:integer; p:array[1..size] of inte
1.tmp：=true
2.j
3.not（tmp）
4.ans