Проверить признак делимости - VB

Узнай цену своей работы

Формулировка задачи:

число делится на 11, если разность между суммой цифр, стоящих на нечетных местах, кратна 11. проверить этот признак для всех натуральных чисел, значение которых не превосходит заданного m, и показать числа, кратные 11.

Решение задачи: «Проверить признак делимости»

textual
Листинг программы
Function d11(ByVal v)
Dim i&
For i = 1 To Len(v)
  d11 = d11 + ((i And 1) * 2 - 1) * Mid$(v, i, 1)
Next
If Abs(d11) > 10 Then d11 = d11(Abs(d11)) Else d11 = d11 = 0
End Function

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

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