следующая тема »

[21 Июль 2025, 23:42:07]

Новости, реклама:

[21 Июль 2025, 23:42:07]

Новости, реклама:

[Largo]

Итак, самый классный алгоритм для нахождения простых чисел? Хм?
Пока ещё не видел круче Эратосфена(до 255)...

_{Program Eratosfen;
Const N = 201;
{Возможно любое значение 1 < N < 256}
Var A, B: Set of 2 .. N;
    K, P: Integer;
Begin
    { Формирование исходного множества A;
    B - искомое множество простых чисел,
    сначала - пустое)
    A := [2 .. N]; B := [ ]; P := 2;
    Repeat
        {Поиск минимального числа в множестве A}
        while Not (p in A) do p := p+1;
        {Включение нацденного числа в множество B}
        b := b + [p];
        k := p;
        {Исключение из A чисел, кратных P}
        while k<=n do
        begin
            a := a - [k];
            k := k + p;
        end
    until a = [ ];
    { Вывод результата, т.е. всех чисел из множества B
    в порядке возрастания}
    for p := 2 to n do if p in b then writeln(p)
end.}

Может кто предложит круче?!

До 255 чисел согласен, алгоритм рулит!!!