求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.