объясните почему появилось это сообщение ​

1)

Function check7(a As Range) As Integer

Dim r As Range

Dim i As Integer

For Each r In a

i = i + 1 - Sgn((Abs(r) + 3) Mod 10)

Next

check7 = i

End Function

Excel VBA

2)

А что здесь программировать-то?

Задача сводится к с следующей: Дано два ящика и 7 мячиков. Сколькими можно разместить эти 7 мячиков в этих двух ящиках?

Бросаем все мячики в первый ящик (это первое размещение), затем перекладываем по одному мячика из первого ящика во второй.

Получаем варианты:

7|0

6|1

5|2

4|3

3|4

2|5

1|6

Итого 7 вариантов (варианта 0|7 быть не может, поскольку двузначное число с нуля не начинается).

В общем-то и без вычислений всем очевидно, что разместить 7 мячиков в двух ящиков ровно 7.

Что должна вычислять программа?

1) Модель - это упрощённая копия чего - либо. Моделирование - создание моделей. В его основе - упрощение и повторение. 2) Модель здания, модель автомобиля, например - игрушки детей это модели. 3) Внутри компьютера можно создать более точные модели, а также - там это гораздо проще. Также в компьютере можно испытать модель в симуляции. 4) Модуляция - упрощение. Демодуляция - усложнение. 5) Их нельзя потрогать, увидеть (Только в схеме), но можно понять. 6) Имеющая свойственную этой модели структуру, модель.