求1000以内素数的和

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/01 12:30:27
求1000以内素数的和
x){OZoYlZNI*#_`gCHS-xg=Wt?tYӓ@I`YbBNNNNUN~^zf^5X*)򁪬lJ@*C$d[Z#gAhhdjj5*d)d*(d(dAc`TmbАmkQPee[ +*/,Iը҄z6yvPה

求1000以内素数的和
求1000以内素数的和

求1000以内素数的和
答案:76127;
P程序如下:
var i,j,k,n,z:longint;
begin
for i:=2 to 1000 do
begin
k:=1;
for j:=2 to round(sqrt(i)) do
if i mod j=0 then begin k:=0; break; end;
if k=1 then z:=z+i;
end;
write(z);
end.