program Royal;
var i,j,sum:integer;
f:boolean;
begin
sum:=0;
for i:=2 to 100 do
begin
f:=true;
for j:=2 to trunc(sqrt(i)) do
begin
if i mod j=0 then f:=false;
end;
if f=true then sum:=sum+i;
end;
writeln(sum);
end.
有很多方法，这种你可能比较好理解~
我编的这个TP是通过了的~
希望对你有用~
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024