Соловей
---------------------
Program pr;
Var a, b, c, d:integer;
Begin
Write('A=');
Readln(a);
Write('B=');
Readln(b);
Write('C=');
Readln(c);
Write('D=');
Readln(d);
if a
Решение:
1. Определим вес одного символа: 500 / 50 = 10 бита.
2. Мощность алфавита определяем по формуле: N=2^10 = 22
Ответ: мощность алфавита N = 22.
<span><span><span>
1
b
</span><span>
2
e
</span><span>
3
a
</span><span>
4
d
</span><span>
5
c
</span></span></span>