Мадана это медведь на юге
Двоичное представление чисел 0 1 2 3 и 4
Е 0 0000
П 1 0001
Н 2 0010
Ч 3 0011
Ь 4 0100
ПЕЧЕНЬЕ в виде двоичного кода
0001 0000 0011 0000 0010 0100 0000
ответ в восьмеричном коде 100601100
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadlnInteger)
.Where(t->(t mod 6=0) and (t mod 10=4)).Count.Println
end.
Чтобы чересчур не увлекаться арифметикой, введем понятие коэффициента пересчета k - отношения размера нового файла к старому.
Файл был записан в стерео (два канала) вместо моно (1 канал), поэтому k=2/1=2.
Разрешение стало в 4 раза выше (больше), поэтому k=2×4=8.
Частота дискретизации стала меньше в 3.5 раза, k=8/3.5=16/7 (оставим дробь, чтобы точность не терять).
Теперь можно легко найти новый размер файла:
49 Мб × k = 49×16/7 = 112 Мб (вот где дробь пригодилась - 49 разделилось на 7 без остатка).
Ответ: 112 Мб.
6 т.к. тело цикла это 3 значения то и выполняется операция 3 раза