Возможно эта. Таблица переводов первых из одной Ссч в другую
Шаг в перед и назад вроде
Var a,k:integer;begink:=0;readln(a);
while a<>0 do
begin
k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
2 8 5 7 0
k = 4
Подсчитаем количество символов: 159*50*60=381600 символов
Переведем байты в биты: 333900*8=2671200 бит
"Вес" 1 символа =2671200 бит/381600 символов =7 бит
Мощность алфавита считается так: N=2^i, где N - мощность, i - "вес" 1 символа в битах
N=2^7=128