Ввести последовательность из n целых чисел - VB
Формулировка задачи:
Вводится последовательность из n целых чисел. найти среднее арифметическое совершенных чисел.
Решение задачи: «Ввести последовательность из n целых чисел»
textual
Листинг программы
Private Sub Command1_Click()
s = 0: k = 0
For i = 1 To Val(InputBox("Введите n "))
c = Val(InputBox("Введите " & i & "-е число"))
sd = 0
For j = 1 To c \ 2
sd = sd - j * (c Mod j = 0)
Next j
s = s - c * (sd = c)
k = k - (sd = c)
Next i
If k = 0 Then
MsgBox "совершенных чисел не найдено"
Else
MsgBox "С.a. совершенных чисел Sa=" & s / k
End If
End Sub