Орёл-зрение
волк-обоняние
летучая мышь-слух
дельфин-слух
<span>крот-осязание</span>
Function func32707155(a As Range) As Integer
Dim i, j, odd_num, even_num, min_max(2) As Integer, r As Range
odd_num = Cells(a.Row, a.Column)
even_num = Cells(a.Row + Sgn(a.Rows.Count - 1), a.Column + Sgn(a.Columns.Count - 1))
j = 0
For Each r In a
j = j + 1
i = j Mod 2
min_max(i) = i * Application.max(odd_num, r) + (1 - i) * Application.min(even_num, r)
Next
func32707155 = min_max(1) + min_max(0)
End Function
Excel VBA
350*200=70000 пикселей
65Кбайт=65*1024=66560 байт=66560*8=532480бит
532480/70000= 7.6 т.е 7 целых бит на пиксель
с помощью 7 бит можно закодировать 2^7=128 цветов
Что именно нужно распознавать на картинке? Текст? Нет какой-то обычной команды. Это нужно несколько лет разработки, куча потраченных нервов и денег, чтобы в итоге сделать распознавание чего-либо на картинке.
Раздели предметы на группы по три если есть лишние предметы то выбери в начале игры первый ход и закрась лишний предмет
есле нет лишних предметов то выбери второй ход
дополняй ход другого игрока до четырех предметов