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