哥德巴赫猜想 Pascal语言
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/08/18 20:30:14
哥德巴赫猜想 Pascal语言
哥德巴赫猜想
时间限制:1000 ms 内存限制:65536 KB
提交数:164 通过数:42
【题目描述】
任一个充分大的偶数N(4
哥德巴赫猜想
时间限制:1000 ms 内存限制:65536 KB
提交数:164 通过数:42
【题目描述】
任一个充分大的偶数N(4
![哥德巴赫猜想 Pascal语言](/uploads/image/z/16236458-26-8.jpg?t=%E5%93%A5%E5%BE%B7%E5%B7%B4%E8%B5%AB%E7%8C%9C%E6%83%B3+Pascal%E8%AF%AD%E8%A8%80)
program long;
var
i,j,k,l,m,n:longint;
function sushu(i:longint):boolean;
var
a,b:longint;
begin
for a:=2 to i-1 do
if i mod a=0 then begin sushu:=false;break;end else sushu:=true;
end;
begin
readln(n);
for i:=2 to n-2 do
if (sushu(i)=true) and (sushu(n-i)=true) then begin writeln(n,'=',i,'+',n-i);break;end;
end.
var
i,j,k,l,m,n:longint;
function sushu(i:longint):boolean;
var
a,b:longint;
begin
for a:=2 to i-1 do
if i mod a=0 then begin sushu:=false;break;end else sushu:=true;
end;
begin
readln(n);
for i:=2 to n-2 do
if (sushu(i)=true) and (sushu(n-i)=true) then begin writeln(n,'=',i,'+',n-i);break;end;
end.