Ввести последовательность из 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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