pascal语言编程问题(free pascal
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/08/29 10:55:12
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