n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/simplenumbers.pas

24 строки456 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1


// ��������� ������� ������� �����
var i,j,r,count: integer;
    f: boolean;
    beg: integer;
begin
  count:=0;
  beg:=Random(1000000000);
  for i:=beg to beg+1000 do
  begin
    f:=true;
    j:=2;
    r:=round(sqrt(i));
    while f and (j<=r) do
      if i mod j = 0 then f:=false
        else j:=j+1;
    if f then
    begin
      write(i.tostring+' '.tostring);
      Inc(count);
      if count mod 5 = 0 then writeln;
    end;
  end;
  writeln;
end.