Для передачи закодированных сообщений используется таблица кодовых слов, в которой каждому сообщению соответствует кодовое слово из четырех букв. причем используются только буквы б, у и м. сколько различных кодовых слов может быть в такой таблице, если ни в одном слове нет трех одинаковых букв идущих подряд?

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

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

                                                                           

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

 

 

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))

 

 

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.