A-50 Б-30 В-20 Г-5
Один из возможных вариантов кодирования:
А=0 (1 бит) Б=10 (2 бит) В=110(3 бита) Г=111 (3 бита)
Всего: 50*1+30*2+20*3+5*3=50+60+60+15=185 (бит) <---- ответ
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var Число := ReadInteger('Введите натуральное число:');
var (Четных, Нечетных) := (0, 0);
while Число > 0 do
begin
if (Число mod 10).IsOdd then Inc(Нечетных)
else Inc(Четных);
Число := Число div 10
end;
Println('Нечетных', Нечетных, 'четных', Четных)
end.
<h2>Введите натуральное число: 1406439</h2><h2>Нечетных 3 четных 4 </h2>
478 * 478 = 228484 пикселей
4 Кбайт = 4096 байт = 32768 бит
228484 / 32768 = 7 бит на пиксель
7² = 49
Ответ 49 цветов
Полезность це колы ты всим нужен и ты вмиеш це робыти .
Эдуард-Маргарет,
Ричард-Анна,
Майкл-Джейн,
Юджин-Хлоя,
Томас-Лилиан