回 帖 发 新 帖 刷新版面

主题:[讨论]高手来

证明歌德巴赫猜想
大于6的偶数等于两个质数之和!

回复列表 (共3个回复)

沙发

你去找陈景润吧

板凳

program ex35_3;
var i,a,b,c:integer;
function f(n:integer):boolean;
var i:integer;
begin
  f:=false;
  if odd(n)then
  begin
    f:=true;
    for i:=2to trunc(sqrt(n)) do
      if odd(i) then
        if n mod i =0 then
        begin
          f:=false;break;
        end;
  end;
end;
begin
  for i:=8 to 100 do
    if not(odd(i)) then
    begin
      a:=1;
      repeat
        a:=a+1;
        b:=i-a;
      until (f(a)and f(b));
      write(i,'=',a,'+',b,'  ');inc(c);
      if c mod 5 =0 then writeln;
    end;
end.
只到100,如果要100以上可改FOR循环的范围!!(不过要在)

3 楼

program ex35_3;
var i,a,b,c:integer;
function f(n:integer):boolean;
var i:integer;
begin
  f:=false;
  if odd(n)then
  begin
    f:=true;
    for i:=2to trunc(sqrt(n)) do
      if odd(i) then
        if n mod i =0 then
        begin
          f:=false;break;
        end;
  end;
end;
begin
  for i:=8 to 100 do
    if not(odd(i)) then
    begin
      a:=1;
      repeat
        a:=a+1;
        b:=i-a;
      until (f(a)and f(b));
      write(i,'=',a,'+',b,'  ');inc(c);
      if c mod 5 =0 then writeln;
    end;
end.
只到100,如果要100以上可改FOR循环的范围!!(不过要在INTEGER范围内)

我来回复

您尚未登录,请登录后再回复。点此登录或注册