作业帮pascal编程：哥德巴赫猜想
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/09 00:35:44
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
【测评网址】：http://www.rqnoj.cn/problem/131