Дано слово {aabbabcbdbbcaebdeebaeedb}.
Если закодировать его символы алгоритмом Хаффмана, то длина буквы:
a =
b =
c =
d =
e =
А значит длина сообщения:

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.

320 * 1024 = 327680 мб

327680 / 700 = ,=> нужно 469 дисков. 469 * 15грамм = 7035 гр = 7кг 35 гр

за два можно. ложим по 3 монеты. если ровно - то фальшивая среди двух оставшихся, которую легко найти. если неровно - то берём 2 монеты из лёгкой чашки и взвешиваем. если ровно - то оставшаяся и есть фальшивая, если неровно - то фальшивая наверху.

const n=10; var i : integer; a : array [1..n] of integer; beginrandomize; for i: =1 to n do begin a[i]: =random(100+1)-50; end; for i: =1 to n do begin if a[i]< 0 then a[i]: =a[i]+20; end; for i: =1 to n do write(a[i],' '); readln; end.