哥德巴赫猜想 多少组解 pascal

题目

哥德巴赫猜想 多少组解 pascal
【题目描述】
任一个充分大的偶数N(4

答案

for i:=2 to trunc(sqrt(m)) do
begin
if m mod i=0 then begin
p:=false;
break;
end;
end;
加一对begin和end