求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 thenz:=z+i;
end;
write(z);
end.