100以内的质数在pascal咋表示?
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/15 09:46:34
100以内的质数在pascal咋表示?
![100以内的质数在pascal咋表示?](/uploads/image/z/2317438-46-8.jpg?t=100%E4%BB%A5%E5%86%85%E7%9A%84%E8%B4%A8%E6%95%B0%E5%9C%A8pascal%E5%92%8B%E8%A1%A8%E7%A4%BA%3F)
效率最高的方法
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.
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.