В базе данных хранятся записи, содержащие информацию о датах. Каждая запись содержит три поля: год (число от 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 в байтах