Рисунок размером 256 на 104 пикселей занимает в памяти 13 кбайт без учёта сжатия. найдите максимально возможное количество цветов в палитре изображения

👇

Ответ:

llll41

29.04.2021

Общий размер S = 13 кБайт = 13*1024 байт = 13 * 8 * 1024 бит.

Всего пикселей P = 256 * 104.

Определим сколько бит приходится на один пиксель (бит/пиксель):

$b = \cfrac{S}{P}=\cfrac{13 \cdot 8 \cdot 1024}{104 \cdot 256} = \cfrac{13 \cdot 8 \cdot 1024}{13 \cdot 8 \cdot 256} = \cfrac{1024}{256} = 4$

Сколько цветов можно закодировать этим количеством пикселей (мощность алфавита):

N=2^b=2^4=16

4,6(40 оценок)

Открыть все ответы

Ответ:

Anna260

29.04.2021

Задачи 1,2,4:
/ PascalABC.Net 3.0, сборка 1066
var
n:BigInteger;
begin
var s:=ReadlnString('Введите натуральное число: ');
If BigInteger.TryParse(s,n) then begin
    var c:=ReadChar('Введите проверяемую цифру: ');
    Writeln(c, ' встречается в ',s,' ',s.Where(x->x=c).Count,' раз');
    Writeln('Максимальная цифра числа: ',s.Where(x->x=s.Max).Distinct);
    Writeln('Перевертыш: ',s.Inverse);
    end
else Writeln('Ошибка при вводе числа')
end.

Тестовое решение:
Введите натуральное число: 355678679650768680078676985643546809678546263435
Введите проверяемую цифру: 4
4 встречается в 355678679650768680078676985643546809678546263435 4 раз
Максимальная цифра числа: [9]
Перевертыш: 534362645876908645346589676870086867056976876553

Задача 3
// PascalABC.Net 3.0, сборка 1066
begin
var m:int64:=-1;
var n:int64:=0;
Writeln('Принимаются неотрицательные целые числа');
while (n>=0) and (m<n) do begin
    m:=n;
    n:=ReadInteger('Введите число: ')
end;
if m>=n then Writeln('Последовательность невозрастающая')
else Writeln('Последовательность возрастающая')
end.

Тестовое решение:
Принимаются неотрицательные целые числа
Введите число: 4
Введите число: 6
Введите число: 12
Введите число: 83
Введите число: 170
Введите число: 214
Введите число: 170
Последовательность невозрастающая

4,5(12 оценок)

Ответ:

Esenbekmalika30

29.04.2021

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
function IsHamming(n:integer):boolean;
begin
while n mod 2 = 0 do n:=n div 2;
while n mod 3 = 0 do n:=n div 3;
while n mod 5 = 0 do n:=n div 5;
Result:=(n=1)
end;

begin
var n:=ReadInteger('n=');
var s:int64:=0;
var k:=0;
var i:=2;
while k<>n do begin
    if IsHamming(i) then begin
      Inc(k); s+=i; Print(i)
      end;
    Inc(i)
end;
Writeln(NewLine,'Сумма элементов последовательности равна ',s);
n:=ReadInteger('Найти элемент с номером');
i:=2; k:=0;
while k<>n do begin
    if IsHamming(i) then Inc(k);
    Inc(i)
end;
Writeln('Найденное значение: ',i-1)
end.

Тестовое решение:
n= 33
2 3 4 5 6 8 9 10 12 15 16 18 20 24 25 27 30 32 36 40 45 48 50 54 60 64 72 75 80 81 90 96 100
Сумма элементов последовательности равна 1257
Найти элемент с номером 1000
Найденное значение: 51840000

4,8(48 оценок)

Это интересно:

Искусство-и-развлечения

07.01.2021

Как скрыться: лучшие способы оставаться невидимым...

Компьютеры-и-электроника

25.08.2022

Как удалить iSearch AVG - подробная инструкция...

Мир-работы

10.03.2021

Как организовать свое офисное пространство...

Компьютеры-и-электроника