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