1,38 мб это 1413,12 кб
1413,12 может поместиться 4 учебника
Неопределённость информации уменьшается в 3*3=9 раз, и такое кол-во информации кодируется минимум 4 битами.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество спичек:');
var (n2,n4):=(n div 2, n div 4);
Writeln('Максимальная площадь: ',n2=2*n4?n4*n4:n4*(n4+1))
end.
<u>Пример</u>
Количество спичек:1 4
Максимальная площадь: 12
256 цветов можно закодировать восемью битами, т.к. 256 = 2^8
8 бит = 1 байт, то есть один один пиксель занимает 1 байт.
Всего пикселей 64x64 = 2^6 * 2^6 = 2^12
Получается, что объем изображения равен 2^12 байт.
Переведем в килобайты, для этого разделим на 1024, то есть на 2^10:
2^12 / 2^10 = 2^2 = 4 Кбайт.
Var
a: array [1..10000] of integer;
i,j,k,m,n:integer;
begin
read(n);
for i := 1 to n do
read(a[i]);
for i := 1 to 3 do
begin
m := a[i];
k := i;
for j := i+1 to n do
if a[j] < m then
begin
m := a[j];
k := j
end;
for j := k downto i+1 do
a[j] := a[j-1];
a[i] := m
end;
for i := 1 to n do
write(a[i],' ')
end.