Створити проект у Thonny на любую тему с информатики.

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.

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

Подберем числа из которых можно получить данные нам числа
87 из 1222
250 из 7099
656136 из 9999
Всего 3

Не подошли:
58: только 5 и 8, что противоречит п2
124: только 12 и 4 не нарушают п2.
    4 = 1+1+1+1, 1*1*1*1=1 <> 12
    4 = 1*1*1*4 = 1*1*2*2 , 1+1+1+4=7 <> 12, 1+1+2+2 = 6 <> 12
411: только 41 и 1 не нарушают п2.
    1 = 1+0+0+0, 1*0*0*0 = 0 <> 41
    1 = 1*1*1*1, 1+1+1+1 = 4 <> 41     
1711: только (17 и 11) и (171 и 1) не нарушают п2.
    (171 и 1), случай с 1 рассмотрен выше
    (17 и 11): 17 = 17*1*1*1, 17+1+1+1 = 20 < 11
        11 = 11*1*1*1, 11+1+1+1 = 14 < 17
841424: только (84142 и 4) и (8414 и 24) и (841 и 424) не нарушают п2.
    Максимум суммы 4 цифр = 9+9+9+9 = 36
    Максимум произведения 4 цифр = 9*9*9*9 = 6561
    (841 и 424): оба числа больше максимума суммы
    (84142 и 4) и (8414 и 24): 84142 и 8414 больше максимума произведения