信息学练习题编写一程序,计算小于500的质数的个数.(用P语言)

天空再烂 1年前 已收到1个回答 举报

书恒杭州十三 幼苗

共回答了18个问题采纳率:94.4% 举报

total:=0;
for i:= 2 to 500 do
begin
prime:=true;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then begin
prime:=false;
break;
end;
if prime then total:=total+1;
end;
writeln(total);

1年前

10
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.017 s. - webmaster@yulucn.com