任何大于5的奇数都可以表示为3个素数之和。请用10个大于5的奇数来验证。奇数用随机函数产生，吧验证写为过程，打印出每个数及组成该数的3个素数

要 求程序 还是 要分享题目啊~

回复：2楼
没事的，我后来做出来了，就是时间长了点啊，呵呵

var i,j:integer;
function zhishu(n:integer):boolean;
var m:integer;
begin
zhishu:=true;
for m:=2 to trunc(sqrt(n)) do
if n mod m=0 then
exit(false);
end;
begin
readln(i);
for j:=2 to i div 2 do
if zhishu(j)and zhishu(i-j)then
writeln(i,'=',j,'+',i-j);
end.