Найти произведение чисел, делящихся нацело на 3 и не делящихся нацело на 5 - VB

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

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

Здравствуйте помогите пожалуйста Дана произвольной длины последовательность натуральных чисел. Найти произведение чисел, делящихся нацело на 3 и не делящихся нацело на 5, наибольшее из таких чисел, и номер этого числа в последовательности.

Решение задачи: «Найти произведение чисел, делящихся нацело на 3 и не делящихся нацело на 5»

textual
Листинг программы
Private Sub Command1_Click()
Dim n As Integer, A() As Single, proizvA As Double, maxA As Single
Dim i As Integer, indMax As Integer
n = InputBox("Введите длину последовательности", "Ввод данных", 5): ReDim A(1 To n): proizvA = 1: maxA = 0: indMax = 0
  For i = 1 To n
       A(i) = InputBox("Введите элемент  A(" & i & ")", "Ввод данных", 6)
       If A(i) Mod 3 = 0 And A(i) Mod 5 <> 0 Then
          If maxA = 0 Then maxA = A(i): indMax = i
          If maxA < A(i) Then maxA = A(i): indMax = i
          proizvA = proizvA * A(i)
       End If
       Print A(i);
  Next i
  Print
If indMax = 0 Then MsgBox "чисел, делящихся нацело на 3 и не делящихся нацело на 5 нет": Exit Sub
Print "Произведение чисел, делящихся нацело на 3 и не делящихся нацело на 5  =  "; proizvA
Print "Hаибольшее из таких чисел  = "; maxA
Print "Номер этого числа в последовательности  = "; indMax
End Sub

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


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

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

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