- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
function Prime (N: longword): boolean;
var
i : longword;
Max : single;
begin
if N = 2
then Prime := true
else if (N <= 1) or (N mod 2 = 0)
then Prime := false
else begin
Prime := true;
i := 3; Max := sqrt(N);
while i <= Max do begin
if N mod i = 0 then begin
Prime := false;
exit
end;
i := i + 2
end
end
end;
var
a, i : longword;
begin
read(a);
for i := 2 to a do
if Prime(i)
then writeln(i, ' is a prime number');
end.
Follow us!
>i := i + 2 //нечетные
>Prime := false; exit //прерывание цикла
м-м-м довольно неплохо.
как по мне довольно адекватная и чуть ли не образцовая (как для лабы) реализация.
лаба же
а прикладные простые числа всё разно таким брутом нет смысла искать
но как бы да, это стандартная оптимизация: несколько тысяч первых простых чисел иметь под рукой в таблице. количество простых чисел то с величиной уменшается.
если попробовать выделить эти "пробелы", то они окажутся православными табами.
и мне не режут. это лучше, чем без отступов
>задача была в поиске всех простых чисел
ряд простых чисел бесконечен. найти все невозможно.
насичот остального уже сказано выше.
Я имел в виду то, что делается в задаче. Найти все простые числа до заданного числа N. Лаба или не лаба - не важно, раз можно было найти оптимальнее.
Отступы - не спорю, может кто-то и к 8 привык или у него автозамены табов на пробелы нет.
в школах не изучают ни теорему Проклингтона, ни эллиптические кривые
может задача была сделать с ограничением по используемой памяти.
Не, в отступах табы.
зы:Страйкер, пофикси гигантские табы.
з.ы. а может даже и не его.
Хм.
>(нужна Ада) и недостаточно аргументов.
Согласен.
>троллить Тараса
Никто его не троллит. Я высказал мнение.
А не аргументированные фразы типа Ада - говно -- вряд ли прокатят. Уныло.
Берегись Тарас!