哥德巴赫猜想(Easy) pascal输入N,验证4~N所有偶数是否符合哥德巴赫猜想.(N为偶数).如果一个数,例如10,则输出第一个加数相比其他解法最小的方案.如10=3+7=5+5,则10=5+5是错误答案.输入格式第一

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 10:56:58
哥德巴赫猜想(Easy) pascal输入N,验证4~N所有偶数是否符合哥德巴赫猜想.(N为偶数).如果一个数,例如10,则输出第一个加数相比其他解法最小的方案.如10=3+7=5+5,则10=5+5是错误答案.输入格式第一

哥德巴赫猜想(Easy) pascal输入N,验证4~N所有偶数是否符合哥德巴赫猜想.(N为偶数).如果一个数,例如10,则输出第一个加数相比其他解法最小的方案.如10=3+7=5+5,则10=5+5是错误答案.输入格式第一
哥德巴赫猜想(Easy) pascal
输入N,验证4~N所有偶数是否符合哥德巴赫猜想.
(N为偶数).
如果一个数,例如10,则输出第一个加数相比其他解法最小的方案.如10=3+7=5+5,则10=5+5是错误答案.
输入格式
第一行N
输出格式
4=2+2
6=3+3
……
N=x+y

哥德巴赫猜想(Easy) pascal输入N,验证4~N所有偶数是否符合哥德巴赫猜想.(N为偶数).如果一个数,例如10,则输出第一个加数相比其他解法最小的方案.如10=3+7=5+5,则10=5+5是错误答案.输入格式第一
你好 下面是源代码(手打、rqnoj AC过了 )
var
a:array[1..1000000000]of boolean;
i,n,j:longint;
begin
readln(n);
i:=0;
for i:=2 to n do
a[i]:=true;
for i:=2 to trunc(sqrt(n))+1 do
for j:=i to (n div i)+1 do
a[i*j]:=false;
i:=2;
while n>i do
begin
i:=2+i;
for j:=2 to n do
if a[j] and a[i-j] then begin writeln(i,'=',j,'+',i-j); break; end;
end;
end.
我的代码简单, 占内存小;
不懂qq1532958223
谢谢合作 长期解答