3. Введите битовую строку и дополните её последним битом, который должен быть равен 0, если в исходной строке чёт- ное число единиц, и равен 1, если нечётное (в получившей- ся строке должно всегда быть чётное число единиц). На- пример, из строки «00110010» должна получиться строка «001100101»

Function func32725655(i As String)

Dim str() As String, j, zero_one(2) As Integer

zero_one(0) = 0: zero_one(1) = 1

str = Split(i, 0)

j = UBound(str, 1)

i = i & zero_one(j Mod 2)

func32725655 = i

End Function

Function func32725655(i As String)

Dim str() As String, j, zero_one(2) As Integer

zero_one(0) = 0: zero_one(1) = 1

str = Split(i, 0)

j = UBound(str, 1)

i = i & zero_one(j Mod 2)

func32725655 = i

End Function

в цикле sum [i]: =sum+mas[i,j];

из всех монет в меньшей стороне всегда присутствует v6,

в большей стороне ни одна монета не повторяется во всех трех взвешиваниях, значит монета под номером 6 фальшивая и она весит меньше подлинных