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