Число делится на 3 тогда и только тогда, когда сумма его цифр делится на 3 - VB
Формулировка задачи:
Помогите с решением задачи:
Как известно, число делится на 3 тогда и только тогда, когда сумма его цифр делится на 3. Проверить этот признак на примере заданного трехзначного числа.Примечание:
Теоретическое утверждение о признаке делимости предлагается проверить на примере любого вводимого числаРешение задачи: «Число делится на 3 тогда и только тогда, когда сумма его цифр делится на 3»
textual
Листинг программы
dim a as string,s as long
a=inputbox("Введите число")
for i=1 to len(a)
s=s+mid(a,i,1)
next i
if s mod 3 then
msgbox a & " не делится на 3"
else
msgbox a & " делится на 3"
endif