Var i:integer;
begin
writeln('введите число от 1 до 7');
readln(i);
case i of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
end;
readln;
end.
Всего 8 автомобилей ГАЗ
(где i-количество информации (округляем в большую сторону) N - количество автомобилей)
Получается 3 бита
5 автомобилей ЗИЛ - 3 бита
6 автомобилей КаМАЗ - 3 бита
3 автомобиля MAN - 2 бита
Результатом выполнения алгоритма будет вывод числа k, которое будет равно 5.
25 (10) = 11001 (2)
Первые два бита дают 4 возможных варианта
00, 01, 10, 11. Но последний - 11, уже занят.
Остается три варианта.
00 110 (2) = 6 (10)
01 110 (2) = 14 (10)
10 110 (2) = 22 (10)