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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 01:57:11
100以内的质数在pascal咋表示?100以内的质数在pascal咋表示?100以内的质数在pascal咋表示?效率最高的方法varf:array[1..100]ofboolean;i,j:inte

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.