作业帮 > 综合 > 作业

输出所有小于等于n(n为一个大于2的正整数)的素数,

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/10 13:26:35
输出所有小于等于n(n为一个大于2的正整数)的素数,
如题
输出所有小于等于n(n为一个大于2的正整数)的素数,
var
a:array[1..100000] of boolean;
n,i:longint;
begin
fillchar(a,sizeof(a),false);
a[2]:=true;
readln(n);
for i:=2 to n do
if a[i] then
begin
writeln(i);
for j:=2 to n div i do a[i*j]:=false;
end;
end.
筛选法找素数.