Автоматическое устройство осуществило перекодировку информационного сообщения на русском языке, первоначально записанного в 16-битном коде Unicode, в 8-битную кодировку КОИ-8. При этом информационное сообщение уменьшилось на 480 бит. Какова длина сообщения в символах

Алфавит у нас состоит из трех букв (Б,У,М). Длина ряда 4 буквы. Количество возможных слов вычисляется по формуле N^m(н в степени м), где N - это длина алфавита, а m - длина ряда. Получаем 3^4=81. Дальше нужно исключить случаи, когда Есть три идущие буквы подряд, рассмотрим все случаи. 
1.Когда все буквы в слове одинаковые (, , );
2.Когда есть три буквы одинаковые (БББУ,УБББ,БББМ,МБББ, БУУУ,УУУБ,МУУУ,УУУМ,МММБ,БМММ,УМММ,МММУ.).
Тобишь всего исключений 12+3=15.
Вычитаем из количества всех вариантов 81-15=66.
ответ:66 различных слов.  

var   s : string[50];
  i, j, k : word;  
 f : boolean;  
function isSpace(ch : char) : boolean;
begin   isSpace := false;  
if ch = ' ' then isSpace := true;
end;  
begin   f := false;  
   repeat     j := 0;
    writeln('введите строку, состоящую из 2 слов');
    readln(s);    
for i := 1 to length(s) do    
   if isSpace(s[i]) then  
    begin    
     inc(j);      
   k := i;       end;
     if j =1 then f := true;
    until f;    
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1)); 
end.
недавно такую писала :)