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