Петя сконструировал цифровое устройство с двумя датчиками. Первый датчик может фиксировать L различных значений, а второй – M различных значений. Один раз в секунду оба датчика должны записывать коды своих значений в буфер. Петя решил, что он будет для каждого датчика записывать в буфер код, используя минимально возможное одинаковое для всех показаний этого датчика количество бит (для записи показаний другого датчика может потребоваться другое, но также одинаковое для записи всех показаний этого датчика и минимально возможное количество бит). Петя обнаружил, что буфера хватает для записи значений ровно за 10 секунд измерений, причем после их записи буфер оказывается заполнен полностью. Вася предложил Пете заменить первый датчик на более современный, позволяющий фиксировать в 16 раз больше различных значений, чем тот, что использовал Петя. Петя обнаружил, что в этом случае буфера хватает для записи значений ровно за 8 секунд измерений и также после записи всех значений буфер оказывается заполнен полностью. Определите размер буфера в битах и запишите в ответ целое число.
//Pascal ABC.NET v3.1 сборка 1172
Const
n=3; //количество строк
m=4; //количество столбцов
Var
f:text;
ma:array[1..n,1..m] of integer;
i,j,s:integer;
begin
assign(f,'matrix.txt');
reset(f);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(f,ma[i,j]);
s:=s+ma[i,j];
end;
end;
close(f);
for i:=1 to n do
begin
writeln;
for j:=1 to m do
write(ma[i,j]:4);
end;
writeln;
write(s);
end.
matrix.txt:
1 2 3 4
4 5 6 4
7 8 9 4
Вывод программы:
1 2 3 4
4 5 6 4
7 8 9 4
57