问题描述:
哥德巴猜想 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.
问题解答:
我来补答展开全文阅读