Сумма первых 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д