Сканируется цветное изображение размером 17,78*17,78 дюйм. разрешающая сканера-1200*1200 dpi, глубина цвета- 16 бита. какой информационный объём будет иметь полученный графический файл? ответ в бит

Var
  n: integer;
  answer: string;
 
begin
  read(n);
  while n > 0 do {Пока есть цифры добавляем последнюю цифру числа к ответу и отбрасываем ее}
  begin
    case n mod 10 of
      0: answer := 'ноль ' + answer;
      1: answer := 'один ' + answer;
      2: answer := 'два ' + answer;
      3: answer := 'три ' + answer;
      4: answer := 'четыре ' + answer;
      5: answer := 'пять ' + answer;
      6: answer := 'шесть ' + answer;
      7: answer := 'семь ' + answer;
      8: answer := 'восемь ' + answer;
      9: answer := 'девять ' + answer;
    end;
    n := n div 10;
  end;
  writeln(answer);
end.

23 = 16 + 4 + 2 + 1 = 10111_2
19 = 16 + 2 + 1 = 10011_2
26 = 16 + 8 + 2 = 11010_2

Двоичные операции применяются ко всем битам, стоящим на одинаковых местах:

- "или" (v): в результате стоит 1, если на этом месте хотя бы у одного из исходных чисел стоит 1.
A v B = 10111_2 v 10011_2 = 10111_2 (например, на 3-м месте у А стоит 1, у B стоит 0, поэтому в результате там стоит 1)

- "и" (&): в результате стоит 1, если на этом месте у всех исходных чисел стоит 1.
(A v B) & C = 10111_2 & 11010_2 = 10010_2 = 16 + 2 = 18.

ответ. 18.