===== PascalABC.NET =====
begin
var a := ReadArrInteger('Введи 5 чисел:', 5);
Print('Введено:');
a.Println;
Println('Сумма чисел равна', a.Sum);
a.Transform(p -> p - 1);
Print('Уменьшили элементы на 1:');
a.Println;
Println('Количество нулей:', a.Count(p -> p = 0))
end.
1. Узбеки - плов (нац блюдо)
Украинцы - борщ (нац блюдо)
2. Курица - лиса
Заяц - волк
3. Колпак. Известный ребус"
A = 100 1001 = 2^6+2³ +1= 64+8+1 = 73 (10c/c)
B = 100 1100 = 2^6+2³+2² =64+8+4= 76 (10c/c)
73 < 75 < 76
Ответ: 2)
Для записи одного из семи значений требуется log(2)7 ≈ 3 бита.
Запись 120 значений: 120*3 = 360 бит = 360/8 байт = 45 байт