作业帮 > 综合 > 作业

pascal素数问题编一个程序,计算1-n范围内素数的个数.输入包括多组数据.每组数据仅有一个整数n (1

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/19 09:31:43
pascal素数问题
编一个程序,计算1-n范围内素数的个数.
输入
包括多组数据.每组数据仅有一个整数n (1
核心代码
readln(n);
while n0 do begin
if n=1 then writeln(0)
else begin
for j:=2 to n do
if prime(j) then inc(ans);
writeln(ans);
end;
readln(n);
end;
prime是指判断素数的函数,需要自己定义