Вася и петя друг другу сообщения, используя синий, красный и зеленый фонарики. это они делают, включая по одному фонарику на одинаково короткое время в некоторой последовательности. количество вспышек в одном сообщении – 3или 4. между сообщениями – паузы. сколько различных сообщений могут передавать мальчики?

Перестановки с повторениями сообщение содержит 3 или 4 цвета. вариантов для 3 цвета 3*3*3 = 27 для 4 цвета подряд 3*3*3*3 = 81 27+81 = 108

Program z18;   var a: array [1..1000] of string; i,j,l,min,h: integer; s: string; begin  write('введите строку - '); readln(s);   l: =s.length;   i: = 1;   j: = 1;       while i < = l do  begin    while (s[i] < > ' ') and (i < = l) do    begin      a[j]: =a[j] + s[i];       i: = i + 1;       if (i > l) then break;     end;     j: = j + 1;     i: = i + 1;   end;       i: = 2;   min: =a[1].length;   while (a[i] < > '') do  begin    l: =a[i].length;     if (l < min) then h: = i;     i: = i + 1;   end;   writeln(a[h]); end. program z19;   var a: array [1..1000] of string; i,j,l,min: integer; s: string; begin  write('введите строку - '); readln(s);   l: =s.length;   i: = 1;   j: = 1;       while i < = l do  begin    while (s[i] < > ' ') and (i < = l) do    begin      a[j]: =a[j] + s[i];       i: = i + 1;       if (i > l) then break;     end;     j: = j + 1;     i: = i + 1;   end;       i: = 1;   while (a[i] < > '') do  begin    if ((a[i] = 'мое') or (a[i] = 'мое')) then a[i]: = 'наше';     write(a[i], ' ');     i: = i + 1;   end; end.

Program z18;   var a: array [1..1000] of string; i,j,l,min,h: integer; s: string; begin  write('введите строку - '); readln(s);   l: =s.length;   i: = 1;   j: = 1;       while i < = l do  begin    while (s[i] < > ' ') and (i < = l) do    begin      a[j]: =a[j] + s[i];       i: = i + 1;       if (i > l) then break;     end;     j: = j + 1;     i: = i + 1;   end;       i: = 2;   min: =a[1].length;   while (a[i] < > '') do  begin    l: =a[i].length;     if (l < min) then h: = i;     i: = i + 1;   end;   writeln(a[h]); end. program z19;   var a: array [1..1000] of string; i,j,l,min: integer; s: string; begin  write('введите строку - '); readln(s);   l: =s.length;   i: = 1;   j: = 1;       while i < = l do  begin    while (s[i] < > ' ') and (i < = l) do    begin      a[j]: =a[j] + s[i];       i: = i + 1;       if (i > l) then break;     end;     j: = j + 1;     i: = i + 1;   end;       i: = 1;   while (a[i] < > '') do  begin    if ((a[i] = 'мое') or (a[i] = 'мое')) then a[i]: = 'наше';     write(a[i], ' ');     i: = i + 1;   end; end.