输出所有小于等于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.
筛选法找素数.