Г) 1 бит..............................................
Sub Z()
Dim a As Integer
a = InputBox("1")
Dim b As Integer
b = InputBox("2")
If Math.Abs(a) > Math.Abs(b) Then a = a / 5
End Sub<span>
</span>
Ответ:
это комплекс программ, которые обеспечивают управление работой компьютера, а также дают возможность пользователям взаимодействовать с ним
Объяснение:
n = input() # n тут берется как строка(слово)
composition= 1
summa = 0
mult=0
h=0
for i in n: #читает каждый элемент строки по 1 символу
summa += int(i) #Складывает каждый элемент где int() - превращает символ в цифру
if int(i) != 0 and int(i)%2==0:
composition *= int(i)
if int(i)%3==0 and int(i)!=0:
mult+=1
h+=1 # - для кол-ва цифр в числе
print("\nсумма: ", summa)
print("Кратные числа трем: ", mult)
print("произведение четных : ", composition)
print("Среднее арифметическое цифр: ",str(round((summa/h),1))) #round помжно убрать, округлил до 1 знака после запятой