pascal编程:哥德巴赫猜想
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/11 17:18:03
pascal编程:哥德巴赫猜想
题目描述输入N(N
题目描述输入N(N
【分析】:枚举【参考程序】: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