Отобразить все простые числа от нуля до заданного числа - VB

Узнай цену своей работы

Формулировка задачи:

суть задачи: взять с пользователя число (негативное, позитивное, ноль) и отобразить все простые числа от нуля до данного числа, также отобразить сумму всех простых чисел от нуля до данново числа
народ отпишите хоть чтонибуть, действительно очень нужна помощ

Решение задачи: «Отобразить все простые числа от нуля до заданного числа»

textual
Листинг программы
Function prosti(ByVal i As Integer) As Boolean
        Dim j As Integer
        prosti = False
        For j = 2 To Math.Sqrt(i)
 
            If (i Mod j = 0) Then Exit Function
        Next j
        If i >= 2 Then prosti = True
 
    End Function

ИИ для рефератов и докладов


  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

12   голосов , оценка 4.333 из 5
Похожие ответы