145(8)=1100101(2)
A7(16)=10100111(2)
складываем
1 1 0 0 1 0 1
1 0 1 0 0 1 1 1
------------------------
1 0 0 0 0 1 1 0 0
- 1 0 1 0 вычитаем
----------------------
1 0 0 0 0 0 0 1 0
Хамелеон 1 - тело и голова зелёного цвета, лапы -жёлтого
хамелеон 3 - тело и голова красный, лапы -зелёный
хамелеон 5 - тело и голова жёлтый, лапы - синий
хамелеон 7 - тело и голова оранжевый, лапы - синий
327680 - информационный вес в битах/10240(20*64*8)=32
ED(16)+20(8)=100001101(2) Здесь таких чисел нет, все меньше
===== PascalABC.NET =====
begin
for var i := 1 to integer.MaxValue-2 do
if (i+1)*(i+2) - i * i = 50 then
begin
Print(i, i+1, i+2);
break
end
end.
Результат: 16 17 18