22 lines
442 B
ObjectPascal
22 lines
442 B
ObjectPascal
// Ãåíåðàöèÿ áîëüøèõ ïðîñòûõ ÷èñåë
|
|
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;
|
|
end.
|