用pascal语言验证哥德巴赫猜想验证哥德巴赫猜想(任何充分大的偶数都可由两个素数之和表示).将4-500中的所有偶数分别用两个素数之和表示.输出为:4=2+26=3+3….100=3+97...500=13+487需注意每个
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/26 04:08:29
用pascal语言验证哥德巴赫猜想验证哥德巴赫猜想(任何充分大的偶数都可由两个素数之和表示).将4-500中的所有偶数分别用两个素数之和表示.输出为:4=2+26=3+3….100=3+97...500=13+487需注意每个
用pascal语言验证哥德巴赫猜想
验证哥德巴赫猜想(任何充分大的偶数都可由两个素数之和表示).将4-500中的所有偶数分别用两个素数之和表示.输出为:
4=2+2
6=3+3
….
100=3+97
...
500=13+487
需注意每个偶数仅输出一个式子(输出第一个数最小的那个式子),每行一个偶数.
例如
18=5+13 13+5 11+7 7+11都可以
但是仅输出一个:18=5+13 因为这个式子的第一个数是5最小.
用pascal语言验证哥德巴赫猜想验证哥德巴赫猜想(任何充分大的偶数都可由两个素数之和表示).将4-500中的所有偶数分别用两个素数之和表示.输出为:4=2+26=3+3….100=3+97...500=13+487需注意每个
var
b:integer;
n,i,j,k,m,p:longint;
begin
for i:=4 to 500 do
begin
if i mod 2=0 then
begin
for j:=2 to i do
begin
b:=1;
for k:=2 to trunc(sqrt(j)) do
if j mod k=0 then
b:=0;
if b=1 then
begin
m:=i-j;
p:=j;
for k:=2 to trunc(sqrt(m)) do
if m mod k=0 then
b:=0;
end;
if b=1 then break;
end;
writeln(i,'=',p,'+',m);
end;
end;
end.
做了下修改,不过时间可能要长几毫秒