100-1000 素数之和

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/11 04:00:58
100-1000 素数之和
x)340b[<zlqUXcf%bL ̼k`R* 5)TXMV(W[PY2(3 H(d5g)hBeKl @늵+ y)FyQfIjNzN&\VF 1oi:

100-1000 素数之和
100-1000 素数之和

100-1000 素数之和
pascal:
var
s,i,x,t:longint;
begin
s:=0;
for x:=100 to 1000 do begin
t:=0;
for i:=1 to x do if x mod i=0 then t:=t+1;
if t=2 then s:=s+x;
end;
writeln('S=',s);
end.