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