Проверить на кратность случайное число - VB

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

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

Тут такое дело, я в этом плохо разбираюсь, сижу второй день, пытаюсь понять что к чему с этой кратностью. Проверить на кратность 3-м или 5-ти каждое случайное число (всего 10). Если число кратно 5-ти, найти сумму этих чисел, если 3-м то произведение.

Решение задачи: «Проверить на кратность случайное число»

textual
Листинг программы
Sub Task(A() as integer)
      n%=Ubound(A,1)
      S3%=1
      S5%=0
      For i%=1 to n%
           If (A(i%) mod 3)=0 then S3%=S3%*A(i%)
           If (A(i%) mod 5)=0 then S5%=S5%+A(i%)
      Next i%
      Debug.print "Произведение кратных трем = ";S3%
      Debug.print "Сумма            кратных пяти = ";S5%
 
End Sub

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


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

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

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