2. В киоске 1000 лотерейных билетов, из них единственный выигрышный. Определите, сколько Бит информации несет сообщение, что первым купили именно его.​

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadSeqInteger('Вводите числа:',ReadInteger('N='))
      .Where(x->Abs(x).Between(10,99)).Count)
end.

Пример
N= 5
Вводите числа: 23 -4 100 -42 16
3

begin
  var k:=ReadInteger('K=');
  Writeln(ReadSeqInteger('Вводите трехзначные числа:',ReadInteger('N='))
      .Where(m->Abs((m mod 10)*(m div 100)*(m div 10 mod 10))=k).Count)
end.

Пример
K= 8
N= 10
Вводите трехзначные числа: 142 712 426 -222 318 916 107 932 -116 473
2

В 1996-ом году на свет вышло следующее поколение дисков – DVD (Digital Versatile Disc). Благодаря более плотной структуре поверхности, а также тонкому лазеру и маленькому шагу дорожки эти носители могли хранить гораздо больший объем информации 

Компакт-диски (CD) изначально имели возможность только хранения информации. Но потом появилась возможность их записи и перезаписи благодаря тому, что на диск наносился слой с изменяемым состоянием

.
Диски Blu-ray – современный тип оптических носителей. Благодаря тонкому сине-фиолетовому лазеру шаг дорожки был значительно сокращен, а объем хранящихся данных – вырос