Число делится на 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
                        

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

13 голосов , оценка 4 из 5

Похожие ответы