pascal 数组 用筛法求出100以肉的全部素数，并按每行五个数显示

Question

初学者，请老师多多指教

Answer 1

var a:array[1..100]of integer;

n,m,i,get:longint;

begin

for n:=1 to 100 do 

        begin

        a[n]:=n;

        end;

        /////////////赋值1~100

for m:=1 to 100 do begin

for n:=2 to 100 do begin

                if (a[m]<>n) then 

                        begin 

                        if (a[m] mod n)=0 then a[m]:=0;

                        end;

                end;

                end;

///////////////////////////////////上面是找素数。

get:=0;

for i:=1 to 100 do 

        begin

        if a[i]<>0 then 

                begin

                write(a[i],'  ');get:=get+1;

                if get=5 then begin writeln; get:=0; end;

                end;

        end;

end.

还好记得。