В базе данных хранятся записи, содержащие информацию о датах. Каждая запись содержит три поля: год (число от 1 до 2100), номер месяца (число от 1 до 12) и номер дня в месяце (число от 1 до 31). Каждое поле записывается отдельно от других полей с помощью минимально возможного числа бит. Определите мини­мальное количество бит, необходимых для кодирования одной записи.

type  Data = record    Year: 1..2100;    Month: 1..12;    Day: 1..31;  end;begin  writeln(sizeof(Data) * 8, ' бит'); {sizeof(Data) показывает размер типа Data в байтах

                                                 умножение производится для перевода байтов в                                      биты}

end.