高考问答重生奥林匹斯神h小说:用筛选的方法求100以内的素数，这个程序为什么运行的结果不对？
来源：百度文库 编辑：高考问答 时间：2024/05/11 13:16:45
program ex1;
var a:array[2..100] of boolean;
i,k:integer;
begin
for i:=2 to 100 do a[i]:=true;
for i:=2 to 49 do
if a[i] then
for k:=i+1 to 100 do
if i mod k=0 then a[k]:=false;
writeln('zhi shu:');
for i:=2 to 100 do
if a[i] then write(i:4);
end .
var a:array[2..100] of boolean;
i,k:integer;
begin
for i:=2 to 100 do a[i]:=true;
for i:=2 to 49 do
if a[i] then
for k:=i+1 to 100 do
if i mod k=0 then a[k]:=false;
writeln('zhi shu:');
for i:=2 to 100 do
if a[i] then write(i:4);
end .
if k mod i=0 then a[k]:=false;