Определить делимость числа - 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

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

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