搜搜做题作业网pascal语言编程问题（free pascal
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/08/12 10:16:30
pascal语言编程问题（free pascal
求1—N中的素数的个数.(1
求1—N中的素数的个数.(1
如下,能给满意回答吗,谢谢
program prime;
var
a : array [2..1000] of boolean;
i , p : integer;
begin
read(n);
for i:=2 to n do a[i]:=true; {a数组初始化,全部置true}
for i:=2 to n div 2 do
if a[i] then begin { a[i] 相当于 a[i]=true }
p:=i*2;
while p
再问： 首先谢谢你的回答，其次我想要的是素数的个数，望能回答。。
再答： sorry，那：program prime;
var
a : array [2..1000] of boolean;
i , p ，x: integer;
begin
read(n);
x:=0;
for i:=2 to n do a[i]:=true; {a数组初始化，全部置true}
for i:=2 to n div 2 do
if a[i] then begin { a[i] 相当于 a[i]=true }
p:=i*2;
while p
program prime;
var
a : array [2..1000] of boolean;
i , p : integer;
begin
read(n);
for i:=2 to n do a[i]:=true; {a数组初始化,全部置true}
for i:=2 to n div 2 do
if a[i] then begin { a[i] 相当于 a[i]=true }
p:=i*2;
while p
再问： 首先谢谢你的回答，其次我想要的是素数的个数，望能回答。。
再答： sorry，那：program prime;
var
a : array [2..1000] of boolean;
i , p ，x: integer;
begin
read(n);
x:=0;
for i:=2 to n do a[i]:=true; {a数组初始化，全部置true}
for i:=2 to n div 2 do
if a[i] then begin { a[i] 相当于 a[i]=true }
p:=i*2;
while p