来源：学生作业帮 编辑：搜搜考试网作业帮 分类：综合作业 时间：2024/05/15 23:52:50
100以内的质数在pascal咋表示?
效率最高的方法
var
f:array[1..100]of boolean;
i,j:integer;
begin
fillchar(f,sizeof(f),1);
f[1]:=false;
for i:=2 to 10 do
if f[i] then
for j:=i to 100 div i do
f[i*j]:=false;
for i:=2 to 100 do
if f[i] then write(i:3);
writeln;
end.
搜搜考试网