哥德巴赫猜想的题目

发布网友发布时间：2022-05-20 16:30

共4个回答

热心网友时间：2023-11-01 07:49

program gedebahecaixiang;
var
x,z,b,k,i:longint;
begin
readln(x);（输入一个偶数）
for a:=2 to x-2 do
begin
k:=0;
for i:=2 to a-1 do
if k=0
then begin
b:=x-a;
k:=0;
for i:=2 to b-1 do
if b mod i=0 then k:=1;
if k=0
then writeln(x,'='.a,'+',b);
end;
end;
end.
(空格是为了你可以看清楚，不一定要打)

热心网友时间：2023-11-01 07:50

任何大于7的奇数都是三个素数之和。

热心网友时间：2023-11-01 07:50

program sd;
var i,p,q:integer;
function pou(a:integer):boolean;
var j,n:integer;
begin
n:=0;
for j:=1 to a do
if a mod j=0 then
n:=n+1;
if n=2 then
pou:=true
else
pou:=false;
end;
begin
readln(i);
if i mod 2<>0 then
begin
writeln('error');
halt;
end;
begin
p:=1;
repeat
p:=p+1;
q:=i-p;
until (pou(p)) and (pou(q));
writeln(i,'=',p,'+',q);
end;
end.

热心网友时间：2023-11-01 07:51

原题：任何大于四的偶数是两奇素数之和。它是如此基础，楼上所说的只是它的一个推论罢了。