1. VisualBasic / Говнокод #2448

    −124.3

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    '...
            Dim l0 As New List(Of Integer)
            Dim num = Convert.ToInt32(Console.ReadLine)
            For i = 1 To num Step 1
                Dim nn, nm As Double
                nn = num / i
                nm = Convert.ToInt32(num / i)
                If nn = nm Then
                    l0.Add(i)
                End If
            Next
            If l0.Count = 2 Then
                Console.WriteLine("Number {0} is simply.", num)
            Else
                Console.WriteLine("Number {0} is not simply.", num)
            End If
            Console.ReadKey()
    '...

    Эх, детство, детство... Когда-то нужно было написать программу проверки числа на простоту.

    Запостил: psina-from-ua, 19 Января 2010

    Комментарии (3) RSS

    • не самая оптимальная проверка) При помощи Решета Эратосфена это делалось бы быстрее ;)
      Ответить
      • Вы не внимательно прочитали, что требуется. Нужно найти не все простые числа до n, а проверить является ли данное число простым. И решето Эратосфена тут никак не подходит.
        Ответить
    • показать все, что скрытоvanished
      Ответить

    Добавить комментарий