sushu.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program sushu(input,output);
var
  i,j,count:integer;
  flag:boolean;
begin
  count:=0;
  For i:=2 to 100 do
    begin
        j:=2;
        flag:=true;
        while (j<=round(sqrt(i))) and flag do
          begin
            if i mod j=0 then flag:=false;
            j:=j+1;
          end;
        if  flag then
          begin
            write(i:4);
            count:=count+1;
            if count mod 5=0 then writeln;
          end;
    end;
end.