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

каждый символ может принимать любое значение, точка, либо тире.

то есть мы можем получить и и _ _ _ и и ещё кучу всего (это только из 3ёх, из 4ёх символов аналогично, но кол-во будет больше)

для начала подсчитаем количество символов, которое можно закодировать с 3ёх знаков:

далее подсчитаем, сколько символов можно закодировать с четырёх знаков:

формула состоит из количества знаков, которыми можно записать число, возведённых в степень, равную количеству использования этих знаков.

 

что бы узнать, сколько можно закодировать используя "не менее 3ёх и не более 4ёх сигналов", нужно просто сложить наши два результата, 8+16=24

Var months: array [1..12] of string;       x: integer; begin   months[1] : = 'january';   months[2] : = 'february';   months[3] : = 'march';   months[4] : = 'april';   months[5] : = 'may';   months[6] : = 'june';   months[7] : = 'july';   months[8] : = 'august';   months[9] : = 'september';   months[10] : = 'october';   months[11] : = 'november';   months[12] : = 'december';   read(x);   if ((x < 1) or (x > 12)) then begin       write('error! ');   end else begin       write(months[x]);   end; end.

Const nn=50; var a: array [1..nn,1..nn] of integer; maxi,maxj,mini,minj,i,j,n,m: integer; begin writeln('введите кол-во строк и столбцов массива: '); readln(n,m); for i: = 1 to n do   for j: = 1 to m do   begin       write('a[',i,',',j,']= ');       readln(a[i,j]);   end; writeln; writeln('получившийся массив: '); for i: = 1 to n do   begin       for j: = 1 to m do           write(a[i,j]: 4);       writeln;   end; maxi: =1; maxj: =1; mini: =1; minj: =1; for i: = 1 to n do   for j: = 1 to m do   begin       if a[i,j]> a[maxi,maxj] then       begin           maxi: =i;           maxj: =j;       end       else if a[i,j]< a[mini,minj] then       begin           mini: =i;           minj: =j;       end;   end; writeln; writeln('получившийся массив: '); i: =a[maxi,maxj]; a[maxi,maxj]: =a[mini,minj]; a[mini,minj]: =i; for i: = 1 to n do   begin       for j: = 1 to m do           write(a[i,j]: 4);       writeln;   end; end.