3 4 5 6 7 8 9 10
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
Числа, выделенные «жирным» шрифтом, отбрасываются.
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
Числа, выделенные курсивом, отбрасываются.
Эратосфен - греческий математик, 275-194 гг. до нашей эры. Классическая задача поиска простых чисел в интервале [2..N] - инструмент для обсуждения метода. Объяснение строится на основе следующего рисунка и фрагмента логики.
Const N= ...;{верхняя граница интервала чисел}
Type Number=Set of 2..N;{решето, N<256}
Var S:Number;
procedure Poisk(var S:Number);
var i,j:2..N;
begin
S:=[2..N];
for i:=2 to N div 2 do
if i in S then begin
j:=i+i;
while j<=N do begin S:=S-[j];j:=j+i;end;
end;
end;
Логическим развитием задачи является ее решение при N больших 256. В этом случае необходимо ввести массив
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
