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