В языке запросов поискового
сервера для обозначения
логической операции «ИЛИ»
используется символ «», а для
логической операции «И» — символ
«&». В таблице приведены запросы
и количество найденных по ним
страниц некоторого сегмента сети
Интернет. Какое количество
страниц (в тысячах) будет найдено
по запросу мышь?Считается, что
все запросы выполнялись
практически одновременно, так что
набор страниц, содержащих все
ИСКOМые слова, не изменялся за
время выполнения запросов.

Запрос
рояль | клавиатура | мышь-723
рояль & клавиатура & мышь-1
рояль & мышь-1
Рояль-111
Клавиатура-343
Клавиатура & мышь-95
Клавиатура & рояль-43

Варианты ответов:
А) 405
Б) 406
В) 407
Г) 422​

Px - обозначение пикселя

количество пикселей в изображении = ширина * высота

количество цветов = 2ⁱ^1 - глубина (битность) цвета,
т. е. количество бит на 1 px

2⁴ = 16 цветов
2⁸ = 256 цветов

8 бит = 1 байт

1.количество px в изображении = 200 * 100 = 20 000 px
битность => 16 цветов = 4 бит

20 000 * 4 = 80 000 бит
80 000 / 8 = 10 000 байт

ответ:
для изображения размером 200×100 пикселей
при глубине цвета 4 бит (16 цветов)
необходимо 10 000 байт

2.
количество px в изображении = 200 * 150 = 30 000 px
битность => 258 цветов = 8 бит

30 000 * 4 = 120 000 бит
120 000 / 8 = 15 000 байт

ответ:
для изображения размером 200×150 пикселей
при глубине цвета 4 бит (16 цветов)
необходимо 15 000 байт

3.
количество px в изображении = 20 * 30 = 600 px
256 цветов = 8 бит

600 * 8 = 4 800 бит
4 800 / 8 = 600 байт

4.
6 px = 2 * 3
2³ = 8 цветов

Двоичный код цветов 3-битной палитры:
R G B
1 1 1 белый
0 0 0 черный
1 0 1 малиновый
1 0 0 красный
0 0 1 синий
0 1 1 бирюзовый
0 1 0 зеленый
1 1 0 желтый

Изображение из 6 px
с основными цветами (без белого и черного):
мал кра син
бир зел жел

Двоичный код изображения:
101 100 001
011 010 110

У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer; 
        i: integer;
begin 
ClrScr; 
Randomize; 
WriteLn ( ' Massiv I: '); 
for i:=1 to n do 
    begin     
          A[i] := 1+random(n);  
          Write (A[i]:4); 
    end; 
WriteLn; WriteLn ( ' Massiv II: '); 
for i:=1 to n do 
    begin   
           if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];     
           Write (A[i]:4); 
   end;
ReadLn;
end.