Question

pascal语言编程问题（free pascal

求1—N中的素数的个数.(1<=N<=10000)
尽量的简洁一些。。

Answer 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<=n do begin {将a中i的倍数去掉}
a[p]:=false;
p:=p+i;
end; {while}
end; {then}
for i:=2 to n do {打印素数}
if a[i]=true then write(i:4);
end.

追问

首先谢谢你的回答，其次我想要的是素数的个数，望能回答。。

追答

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<=n do begin {将a中i的倍数去掉}
a[p]:=false;
p:=p+i;
end; {while}
end; {then}
for i:=2 to n do {打印素数}
if a[i]=true then x:=x+1;;
end.

追问

第一，为什么您连个N都不给我呢？或许是有其他的方法，反正我的free pascal是无法弄出来的。（现在我已经加了个N
第二，老大，你不给我个N就算了，您老连个write都不给啊。。。（目前已改，虽然有一些小毛病，但是已经有了答案，谢谢你的回答。。。。

Answer 2

可以用筛法，先搞一个2到10000的数组，然后把2到10000的两倍以上的数排出。剩下的就是素数。给个赞。如果还不行的话我打个程序。

追问

我想要的就是程序，思路我知道，我想看看程序。

追答

额，就上面的吧，人家已经帮忙了，我就没必要了。
但还有一种，我贡献下：
program kkk;
var i,n,j:integer;
f:boolean;
begin
n:=0;{初始化}
for i:=2 to 10000 do
begin
f:=true;（初始化）
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then（除以以内的数，检查是否为素数）
begin
f:=false;
break;（终止循环）
end;
if f then
inc(n);（增加一个）
end;
writeln(n);（输出）
end.

追问

也灰常的感谢你，你的方法也很好，不过我已经用了一个了/我笑。。所以，没法把你变成采纳，不过也谢谢你了。。