Высчитаем количество пикселей в изображении:
128x128 = 16384
Высчитаем количество бит в 2 КБ:
2x1024x8 = 16384
Посчитаем количество бит на пиксель. Для этого поделим количество бит в изображении на количество пикселей:
16384 / 16384 = 1
Посчитаем глубину цвета:
2¹ = 2
Ответ: В изображении может быть максимум 2 цвета.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
a.Println;
var (imax,imin):=(a.IndexMax,a.LastIndexMin);
Swap(a[imin],a[imax]); a.Println
end.
<u>Пример</u>
n= 15
-4.3 -5.6 7.2 -5.3 -7.7 9.3 1.4 0.3 -4.7 6.3 5.7 7.5 -8.6 6.9 -2.5
-4.3 -5.6 7.2 -5.3 -7.7 -8.6 1.4 0.3 -4.7 6.3 5.7 7.5 9.3 6.9 -2.5
Var n: integer;
function oct(x: integer): string;
var s: string;
begin
while x > 0 do
begin
s := IntToStr(x mod 8) + s;
x := x div 8;
end;
Result := s;
end;
begin
write('Введите число: ');
readln(n);
writeln('Восьмиричная форма: ', oct(n))
<span>end.</span>