Уменьшив размер объекта ты уменьшишь кол-во пикселей на сам объект.
Лупа расширяет размер пикселя,увеличивая объект.
Я думаю, что это вышка сотовой связи. Она перекрывает определенную площадь сотовой связью.
Program n1;
const n=10;
var a: array [1..n] of integer;
i,sum,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(34);
write(a[i],' ');
end;
writeln;
sum:=0;
k:=0;
for i:=1 to n do if a[i] mod 3 = 0 then
begin
k:=k+1;
sum:=sum +a[i];
end;
writeln('кол-во: ',k);
writeln('сумма: ',sum);
writeln('ср. арифм: ',sum/k);
end.
В 1 бите можно закодировать 2 символа, в двух - 4, в трех - 8 и так далее.
Ищем наименьшую степень двойки, которая окажется >= количеству символов, которые надо закодировать. Показатель этой степени и будет являться ответом. В данном случает это 64, а 64 - это 2 в степени 6.
Ответ: 6 бит.
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Writeln('*** Исходная матрица ***');
var a := MatrRandom(5, 6, -99, 99);
a.Println(4); Writeln(4 * a.ColCount * '-');
Writeln('***Результат ***');
a.SwapCols(0, 1);
a.Println(4)
end.