作业帮 > 综合 > 作业

pascal编程:哥德巴赫猜想

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