Определить делимость числа - VB
Формулировка задачи:
Дано целое число М. Определить делиться ли М нацело на 9. Сумма цифр М должна делиться нацело на 9
Решение задачи: «Определить делимость числа»
textual
Листинг программы
- function d9(v)as boolean
- dim t,i
- while len(v)>1
- t=0
- for i=1 to len(v)
- t=t+mid$(v,i,1)
- next
- v=t
- wend
- d9=v=9
- end function
- sub test
- debug.print d9("9999999999999999999999999")
- end sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
