Из трех заданных чисел подсчитать количество таких, которые при делении на 7 дают остаток 1 - VBA
Формулировка задачи:
Напишите в среде Excel макрос, который среди трех чисел а, b и с должен подсчитывать:Количество тех чисел, которые при делении на 7 дают остаток 1. Какое должно быть условие для правильной работы макроса?
Решение задачи: «Из трех заданных чисел подсчитать количество таких, которые при делении на 7 дают остаток 1»
textual
Листинг программы
Sub main() a = 1 b = 8 c = 3 MsgBox -(a Mod 7 = 1) - (b Mod 7 = 1) - (c Mod 7 = 1) End Sub