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

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

信息学练习题编写一程序,计算小于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);