1.3 дано натуральное число n (n> 9). найти: а) число единиц в нем; б) число десятков в нем.

Dim A(100) As Integer, Odin As Boolean
Dim k As Integer , i As Integer
Randomize
For i = 1 To 100
A(i) = Int(Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100
Print A(i) & CHR(9); ' Выводим начальный массив через табуляцию
Next i
Print "Повторяющиеся элементы"
For i = 1 To 100
For k = i+1 To 100
If A(i) = A(k) Then Print A(i) & CHR(9);
Next k
Next i
Print "Не повторяющиеся элементы"
For i = 1 To 100
Odin = True 
For k = i+1 To 100
If A(i) = A(k) Then Odin = False
Next k
If Odin = True Then  Print A(i) & CHR(9);
Next i
End

1)7

2)6

3)4

4)5

Объяснение:

1)так как в Python отщёт идёт от 0, то значениями і будут 0,1,2,3,4,5,6 , из за того, что отщёт идёт до 7, то есть останавливается на 6.

проверяется програмой: for i in range(7):

print(i)

2) 6, так как последнее значение і в цикле будет 6. Проверяется командой for i in range(7):

print(i)

print(i). Так как после цикла і будет иметь значение последнее из цикла, то есть 6.

3)Отщёт идёт от 3 до 7, значениями і будут 3,4,5,6. Проверяется командой

for i in range(3,7):

print(i)

4) Отщёт идёт от 3 до 17, через три цифры, по этому значениями і будут числа 3,6,9,12,15.

проверяется командой

for i in range(3,17,3):

print(i)

что подписался)