pascal编程:哥德巴赫猜想
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/08/18 20:49:30
pascal编程:哥德巴赫猜想
题目描述输入N(N
题目描述输入N(N
![pascal编程:哥德巴赫猜想](/uploads/image/z/16236461-29-1.jpg?t=pascal%E7%BC%96%E7%A8%8B%EF%BC%9A%E5%93%A5%E5%BE%B7%E5%B7%B4%E8%B5%AB%E7%8C%9C%E6%83%B3)
【分析】:枚举【参考程序】:var n:longint; data:array[1..10000]of -1..1;function f(i:longint):boolean; //判断一个数是否为素数,同时记录判断过的数var j:longint;begin if data[i]=-1 then exit(false); for j:=2 to trunc(sqrt(i)) do if i mod j=0 then begin data[i]:=-1; exit(false); end; data[i]:=1; exit(true);end;procedure main;var i,j:longint;begin for i:=4 to n do if not(odd(i)) then for j:=2 to n div 2 do if(f(j))and(f(i-j))then begin writeln(i,'=',j,'+',i-j); break; end;end;begin readln(n); main;end.【测评结果】:
【测评网址】:http://www.rqnoj.cn/problem/131
![](http://img.wesiedu.com/upload/6/f6/6f6fa0153ee2f64477bafefb9518fd42.jpg)