1089
Объяснение:
Заменим буквы на цифры следующим образом: А — 0, Г — 1, И — 2, Л — 3, М — 4, О — 5, Р — 6, Т — 7. Получаем список:
1. 0000
2. 0001
3. 0002
4. 0003
5. 0004
6. 0005
7. 0006
8. 0007
9. 0010
...
Для нахождения первого слова, которое начинается с букв ИГ, нужно найти номер ИГАА, то есть 2100. Используется восьмибуквенный алфавит, значит, нужно найти значение числа 21008 в десятичном виде. Им является число 108810, но поскольку номер в списке на единицу больше самого числа, то остаётся добавить к получившемуся числу единицу. Получаем 1089.
var i,j,n,k,k1,k2,k3: integer; bb: boolean;
a: array of integer;
begin
write('N = ');
readln(n);
if ((n mod 3 = 0) and (n<>0)) then begin
write('K1 = ');
readln(k1);
write('K2 = ');
readln(k2);
write('K3 = ');
readln(k3);
setlength(a,n);
for i:=0 to n-1 do begin
write('Заполним номер ',i+1,' -> ');
readln(a[i]);
end;
i:=0;
while (i<n) do
begin
a[i]:=k1-a[i];
a[i+1]:=k2-a[i+1];
a[i+2]:=k3-a[i+2];
inc(i,3);
end;
write('K = ');
readln(k);
for i:=0 to n-2 do
if (a[i]+a[i+1]>=k) then begin write('В комнатах ',i+1,' и ',i+2,' есть ',a[i]+a[i+1],' свободных мест'); bb:= true; end;
if (bb=false) then writeln(0);
end else writeln('Введите число кратное 3 и неравное 0');
readln;
end.
Тут все достаточно просто.
Всего 32 уникальных карты карты
32= 2^5 - значит получаем всего 5 бит информации
Для более подробного объяснения можно разделить карты на номинал и масти
Всего 4 масти в колоде
Для обозначения Масти нужно два бита
00 - пики
01 - буби
10 - черви
11 - крести
и 8 номиналов нужно 3 бита
000 - туз
001 - король
010 - дама
011 - валет
100 - десятка
101 - девятка
110 - восьмерка
111 - семерка