用pascal语言验证哥德巴赫猜想
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/30 09:46:07
用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最小.
验证哥德巴赫猜想(任何充分大的偶数都可由两个素数之和表示).将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最小.
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.
做了下修改,不过时间可能要长几毫秒
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.
做了下修改,不过时间可能要长几毫秒
用pascal语言验证哥德巴赫猜想
用pascal语言验证哥德巴赫猜想(任何充分大的偶数都可由两个素数之和表示)
哥德巴赫猜想(Easy) pascal
"验证2000以内的哥德巴赫猜想,对于任何大于4的偶数均可分解为两个素数之和"用c语言怎么写?
用C语言(C99) 验证哥德巴赫猜想:一个不小于6的偶数必定能表示为两个素数之和.
用c语言《验证歌德巴赫猜想》
哥德巴赫猜想的题目是pascal类型的
C语言编程验证哥德巴赫猜想,任何大于2的偶数都是两个素数之和(100以内)
C语言:验证哥德巴赫猜想:任何一个大于6的偶数均可表示为2个素数之和
跪求C语言用 穷举法 表示角谷猜想和哥德巴赫猜想
编写程序,验证哥德巴赫猜想,验证4~20之间的数,要求判断素数用函数表示
哥德巴赫猜想