2015-12-28 14:25:15 +03:00
|
|
|
// Генерация больших простых чисел
|
2015-05-14 22:35:07 +03:00
|
|
|
begin
|
2015-12-28 14:25:15 +03:00
|
|
|
writeln('Большие простые числа: ');
|
2015-05-14 22:35:07 +03:00
|
|
|
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;
|
|
|
|
|
end.
|
