验证歌德巴赫猜想(pascal)

发布网友发布时间：2022-05-20 16:30

共4个回答

热心网友时间：2023-11-01 07:49

program gedebahe;
var i,j:integer;
function shu(n:integer):boolean;
var m:integer;
begin
shu:=true;
for m:=2 to trunc(sqrt(n)) do
if n mod m=0 then
exit(false);
end;
BEGIN
readln(i);
for j:=2 to i div 2 do
if shu(j)and shu(i-j)then
writeln(i,'=',j,'+',i-j);
END.

热心网友时间：2023-11-01 07:50

program a1(input,output); var n,m:integer; fuction pan(x:integer):integer; var f,k:integer; begin f:=1; for k:=2 to trunc(sqrt(x)) do if x mod k=0 then f:=0; pan:=f; end; begin repeat write('n='); readln(n); until(n>6) and (n<1000) and (n mod 2=0); for m:=2 to n div 2 do if pan(m)+pan(n-m)=2 then writeln(n,'=',m,'+',n-m); end.
保证可用

热心网友时间：2023-11-01 07:50

你可以先用筛法求出所有小于n的素数,然后在利用枚举法求出和等于n的两个数.

热心网友时间：2023-11-01 07:51

告诉我中国数学科学研究院关于这个问题的负责人的联系方式，我将这个世界难题公诸于世！！！！！！谢谢！！！！