/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Algorithms/PrimeNumbers.pas
22 строки
497 B
Mikhalkovich Stanislav
Правки некоторых примеров
01 янв 2019, 14:15
01 янв 2019, 14:15
43adc0a
Код
Авторство
О чём код?
// Генерация больших простых чисел begin Println('Большие простые числа: '); 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 Print(i); count += 1; if count mod 8 = 0 then Println; end; end; end.