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

    • ava guest 23.01.2010 23:12 # 0

      не самая оптимальная проверка) При помощи Решета Эратосфена это делалось бы быстрее ;)
      Ответить

      • ava ivmaroz 25.01.2010 11:13 # +1

        Вы не внимательно прочитали, что требуется. Нужно найти не все простые числа до n, а проверить является ли данное число простым. И решето Эратосфена тут никак не подходит.
        Ответить

    • ava guest8 28.05.2019 11:43 # −999

      показать все, что скрытоvanished
      Ответить

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