Паскаль Генерация больших простых чисел

Примеры программ на Pascal

Генерация больших простых чисел

begin

writeln('Большие простые числа: ');

var count := 0;

var beg := Random(1000000000)+2;

for var i:=beg to beg+5000 do

begin

var f := True;

var j := 2;

var r := round(sqrt(i));

while f and (j<=r) do

if i mod j = 0 then f := false

else j += 1;

if f then

begin

write(i,' ');

Inc(count);

if count mod 5 = 0 then writeln;

end;

end.