信息学练习题
问题描述：
信息学练习题
编写一程序,计算小于500的质数的个数.
(用P语言)
答
total:=0;for i:= 2 to 500 dobeginprime:=true;for j:=2 to trunc(sqrt(i)) doif i mod j=0 then begin prime:=false; break;end;if prime then total:=total+1;end;writeln(total);