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