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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 05:24:12
信息学练习题编写一程序,计算小于500的质数的个数.(用P语言)

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

信息学练习题编写一程序,计算小于500的质数的个数.(用P语言)
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);