哥德巴赫猜想(Easy) pascal

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/13 12:09:08

哥德巴赫猜想(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

你好下面是源代码（手打、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
谢谢合作长期解答

哥德巴赫猜想(Easy) pascal 用pascal语言验证哥德巴赫猜想哥德巴赫猜想的题目是pascal类型的哥德巴赫猜想哥德巴赫猜想怎样解决? 怎么证明哥德巴赫猜想? 什么是“哥德巴赫猜想” 哥德巴赫猜想是什么意思啊《哥德巴赫猜想》读后感一篇 . 如何证明哥德巴赫猜想? 哥德巴赫猜想意义? “哥德巴赫猜想”的定义?