Var
a: array[-10..10] of real;
i: integer;
begin
for i := -10 to 10 do begin
Read(a[i]);
a[i] := a[i] / 10;
Write(a[i]+' ');
end;
end.
Если в одной из 16 книг, значит информация может оказаться в каждой книге с равной вероятностью.
16 книг - это 4 бита, т.к. 2^4 - 16
Ответ: 4 бит.
//PascalABC.NET
//Версия 3.4.2
begin
range(1,ReadInteger('n=')).Where(x->x.IsEven).Println;
end.