Сумма первых 111 чисел - VB

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

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

Определить сумму первых 111 простых чисел

Решение задачи: «Сумма первых 111 чисел»

textual
Листинг программы 
Private Sub Command2_Click()
Dim n&, i&, sum&, j&
n = 1
sum = 2
For j = 2 To 111
1:  n = n + 2
    For i = 3 To Sqr(n) Step 2
      If n Mod i = 0 Then GoTo 1
    Next i
    sum = sum + n ': Debug.Print n
Next j
MsgBox sum '30504
End Sub

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

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

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

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