100以内的质数在pascal咋表示?

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/15 05:40:57
100以内的质数在pascal咋表示?
xJ0_%Ǯ[l냔dwJHJZV?< /^ױ֦z|13a x{kScvR^oe'̴G/?VSv'fu~SO,SQ4mJ!zx)L~c9b=K_tni] sl dr~YPI

100以内的质数在pascal咋表示?
100以内的质数在pascal咋表示?

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.