Постройте черно-белый рисунок шириной 8 пикселей, закодированный шестнадцатеричной последовательностью 2466ff6624. если можно пошагово

Вместо черно-белого - желто-белый (см. рисунок).

1 - 3бит

2 - 128 цветов

3 - 512Кбайт

4 - ≈1406,25 Кбайт

Объяснение:

Напишем формулы, необходимые для решения задач:

1.  N = 2^I  , где N - кол-во цветов в палитре, I - глубина цвета

2. V = a*I   , где V - информационный объем, a - количество пикселей

Задача 1

Воспользуемся формулой 1 и выведем I

I = log2 N = I = log2 8 = 3бит

Задача 2

Воспользуемся формулой 1

N = 2^I = 2^7 = 128 цветов

Задача 3

Воспользуемся формулой 2

V = a*I = 1024*512*8 бит / 2^13 = 2^10 * 2^9 * 2^3 / 2^13 = 2^9 Кбайт = =512Кбайт

Задача 4

Воспользуемся формулой 1 и формулой 2

Выведем I из формулы 1:

I = log2 N = log2 16*10^6 = log2 2^4*10^6 = 2*log2 2^2*10^3 =

= 2*log2 4000 ≈ 2*12 = 24бит

V = a*I = 800*600*24/2^13 = 2^3 * 10^2 * 2*3 * 10^2 * 2^3 * 3 / 2^13 =

= 2^7 * 10^4 * 3^2 / 2^13 = 2^11 * 5^4 * 3^2 / 2^13 = 5^4 * 3^2 / 2^2 =

= 625*9/4 = 1406,25 Кбайт

uses crt; var s:string;     c:char;     m:set of char;     n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then  begin   write(c);   s:=s+c;  end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do  begin   k:=0;   for i:=1 to n do   if s[i]=c then k:=k+1;   if k>1 then m:=m+[c];  end; if m=[] then write('Нет букв, встречающихся более 1 раза') else  for c:='a' to 'z' do  if c in m then write(c) end.