就是在给定的范围内,枚举数字
与条件比较,如果符合条件,那么就进行操作

比如说:求在1到N范围内求素数(5个一行输出):
var n,i,j,k,l:integer;
begin
  readln(n);l:=1;
  write(2,' ');{1不算,2要特别处理}
  for i:=3 to n do 
    begin
      k:=1;
      for j:=2 to trunc(sqrt(i)) do 
        if i mod j=0 then 
          begin
            k:=0;break;
          end;
      if k=1 then 
        begin
          l:=l+1;write(i,' ');
          if l mod 5=0 then writeln;
        end;
    end;
end.

[em18]

[em18]