污水的三级处理:pascal编程哥德巴赫猜想将一个奇数拆分成三个素数之和

来源:百度文库 编辑:上车买票 时间:2020/02/19 06:48:47

program l_1(input,output);
var
i,j,k,x:integer;
f:boolean;
function pan(a:integer):integer;
var
i:integer;
begin
pan:=1;
for i:=2 to trunc(sqrt(a)) do
if a mod i=0 then pan:=0;
end;
begin
assign(input,'work1_5.in');
reset(input);
assign(output,'work1_5.out');
rewrite(output);
readln(x);
f:=false;
i:=2;
repeat
for j:=i to (x-i) div 2 do
begin
k:=x-i-j;
writeln(i:2,j:2,k:2);
if pan(i)+pan(k)+pan(j)=3 then
begin
writeln(x,'=',i,'+',j,'+',k);
f:=true;
break;
end;
end;
i:=i+1;
until f=true;
close(input);
close(output);
end.

无法证明
只有有限次的实验

枚举法