881 500 байт
Объяснение:
Дано:
K = 860 * 820 = 705 200 точек
N = 1 024 цветов
Найти:
I
1 024 = 2^i
1 024 = 2¹⁰
i = 10 бит
I = 705 200 * 10 = 7 052 000 бит = 881 500 байт ≈ 860,84 Кбайт
1 байт = 8 бит
1 Кбайт = 1 024 байт
I = K * i
I - информационный объём изображения (размер файла, содержащего изображение)
K - количество точек (пикселей)
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
N = 2^i
N - количество цветов в палитре
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
pascal
Объяснение:
var
i, j ,k: integer;
l, lnew: string;
a: array of integer;
begin
Write('Введите число >> ');
ReadLn(l);
SetLength(a ,length(l));
for i := 0 to length(l) - 1 do
a[i] := strtoint(l[i + 1]);
for i := 0 to length(l) - 2 do
for j := i + 1 to length(l) - 1 do
if a[i] > a[j] then
begin
k := a[i];
a[i] := a[j];
a[j] := k;
end;
for i := 0 to length(l) - 1 do
lnew := lnew + inttostr(a[i]);
WriteLn('Новое число равно ', lnew);
end.
