求1000以内素数的和

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/23 16:02:51
求1000以内素数的和求1000以内素数的和求1000以内素数的和答案:76127;P程序如下:vari,j,k,n,z:longint;beginfori:=2to1000dobegink:=1;f

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