验证歌德巴赫猜想（pascal）

来源：百度知道 编辑：UC知道 时间：2024/06/16 23:02:33
对于6~1000中的偶数，验证歌德巴赫猜想：任一个大偶数(大于等于6的偶数)总可以分解成二个质数之和。
输入：一个大于6的偶数
输出：把这个偶数表示成两个质数之和，如有多解，全部输出。
样例输入
10
样例输出
3+7
5+5
确保可用，方法明确

program gedebahe;
var i,j:integer;
function zhishu(n:integer):boolean;
var m:integer;
begin
zhishu:=true;
for m:=2 to trunc(sqrt(n)) do
if n mod m=0 then
exit(false);
end;
BEGIN
readln(i);
for j:=2 to i div 2 do
if zhishu(j)and zhishu(i-j)then
writeln(i,'=',j,'+',i-j);
END.

program a1(input,output); var n,m:integer; fuction pan(x:integer):integer; var f,k:integer; begin f:=1; for k:=2 to trunc(sqrt(x)) do if x mod k=0 then f:=0; pan:=f; end; begin repeat write('n='); readln(n); until(n>6) and (n<1000) and (n mod 2=0); for m:=2 to n div 2 do if pan(m)+pan(n-m)=2 then writeln(n,'=',m,'+',n-m); end.
保证可用

你可以先用筛法求出所有小于n的素数,然后在利用枚举法求出和等于n的两个数.

告诉我中国数学科学研究院关于这个问题的负责人的联系方式，我将这个世界难题公诸于世！！！！！！谢谢！！！！