2 мбайта переводим в биты умножая на 2 в 23 степении делим на 1000*900 получим примерно 16 бит значит в палитре 2 в 16 степени цветов
Sub MyMid()
a = Range("B3:B14")
n = UBound(a, 1)
s = 0
For i = 1 To n
s = s + a(i, 1)
Next i
Range("E3").Value = s / n
End Sub
<em><u>Можно и короче записать:</u></em>
Sub MyMid2()
Range("E3") = Application.WorksheetFunction.Average(Range("B3:B14"))
End Sub
Конфеты любят 52/2 = 26 человек, значит, остальные 26 любят только мороженое (они должны что-то любить и не любят конфеты). Прибавляем к ним 20 человек, любящих и то, и другое, и получаем, что мороженое любят 46 человек.
Ответ. 46, 26.
Привожу пример в VBA Excel, программа в редакторе VBA открывается Сервис/макрос/редактор...
Буква убавилась на 2, число на 2
Было =D3+$C5, станет <span>=B1+$C3</span>