Простые числа

[hellmare]

Помогите пожалуйста советом. Как вывести простые числа введенной с клавиатуры последовательности чисел, принадлежащие одному десятку (например, 11, 13, 17, 19) или(41, 43, 47)? как я понимаю, надо в цикле проверить все числа из нужного десятка с помощью какой-то функции на простоту(простое число - делящееся только на себя и единицу), или разделить на все предыдущие числа и проверять остаток.
Ещё есть способ воспользоватся решетом Эратосфена.

Код: Выделить всё

Public Sub EratosthenesSieve(ByRef N As Long, ByRef P() As Long)
    Dim C As Boolean
    Dim I As Long
    Dim J As Long
    Dim K As Long
    Dim R As Long
    Dim S As Double

    If N > 200# Then
        R = Fix(N / (Log(N) - 2#) + 1#)
    Else
        R = Fix(1.6 * N / Log(N) + 1#)
    End If
    ReDim P(1# To R)
    P(1#) = 1#
    P(2#) = 2#
    P(3#) = 3#
    I = 4#
    Do
        P(I) = 0#
        I = I + 1#
    Loop Until Not I <= R
    J = 3#
    K = 3#
    Do
        I = 2#
        S = Sqr(K)
        C = True
        Do
            I = I + 1#
            If P(I) > S Then
                P(J) = K
                J = J + 1#
                C = False
            End If
        Loop Until Not (Fix(K / P(I)) * P(I) <> K And C)
        K = K + 2#
    Loop Until Not K <= N
End Sub


Но этот алгоритм не совсем понятен...
Может кто поможет?

[Viper]

???? почему четверки то? Тем более, что 18, 13004, 13005 и 13006 отнюдь числа не простые. По теме: есть такая штука Решето Эратосфена - алгоритм вычисления (получения) простых чисел

[hellmare]

Viper, спасибо, пост подправлен.

[Viper]

На кой в реализации алгоритма везде типу Long упорно присваивается значение типа Double?