主题：[讨论]高手来
black_nemo
[专家分：0] 发布于 2008-09-30 18:56:00
证明歌德巴赫猜想
大于6的偶数等于两个质数之和！
回复列表 （共3个回复）
沙发
angwuy [专家分：2280] 发布于 2008-10-01 09:28:00
你去找陈景润吧
板凳
jack-jiao [专家分：140] 发布于 2008-10-02 15:28:00
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 楼
jack-jiao [专家分：140] 发布于 2008-10-02 15:29:00
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范围内)
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — [讨论]高手来