с информатикой! «Кодирование и декодирование информации»

От разведчика была получена следующая шифрованная радиограмма , переданная с использованием азбуки Морзе :

При передачи радиограммы было потерянно разбиение на буквы , но известно , что в радиограмме использовались только следующие буквы :
-•-•-•- - •-•-•-••

Н К И Л М

-• -•- •• •-•• —

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var m,n:integer;
  Write('Количество строк и столбцов матрицы: ');
  Read(n,m);
  var a:=MatrixRandom(n,m,10,99);
  for var i:=0 to n-1 do begin
    for var j:=0 to m-1 do Print(a[i,j]);
    Writeln
    end;
  var p:=ReadInteger('Введите число Р:');
  var b:array of integer;
  SetLength(b,4*m);
  var k:=0;
  for var i:=n-p to n-1 do
    for var j:=0 to m-1 do
      if a[i,j] mod 4=0 then begin
        b[k]:=a[i,j]; Inc(k)
        end;
  SetLength(b,k);
  b.Print
end.

Тестовое решение:
Количество строк и столбцов матрицы: 6 8
67 70 68 72 38 72 96 38
49 75 24 55 72 63 21 40
72 12 60 22 74 30 13 45
22 45 39 24 35 97 64 31
76 62 15 94 56 28 31 13
41 67 75 37 67 13 25 20
Введите число Р: 4
72 12 60 24 64 76 56 28 20

Цикл с параметром был уже рассмотрен нами в разделе "Алгоритм" в теме "Виды алгоритмов".

       Цикл с параметром используется,  когда заранее известно сколько раз должен выполниться цикл.  

Формат записи цикла:  

For  <пар.цикла> := <нач.знач> to <кон.знач.> do <оператор>

       Здесь for, to, do - зарезервированные слова (для, до, выполнить);  

<пар. цикла> - параметр цикла – переменная целочисленного типа (типа integer);  

<нач. знач.> - начальное значение - число или переменная целочисленного типа (типа integer);  

<кон. знач.> - конечное значение - число или переменная целочисленного типа (типа integer);  

<оператор> - произвольный оператор Паскаля.  

Пример:  For i:=1 to n do <оператор>

здесь i - параметр цикла

        1 - начальное значение

        n - конечное значение        

       Если в теле цикла используется несколько операторов, тогда, используются операторные скобки: begin ... end.  

       При выполнении оператора for вначале вычисляется выражение <нач .знач.> и осуществляется присваивание его значения переменной цикла <пар .цикла> := <нач. знач.>. Далее сравниваются <пар .цикла> и  <кон.знач.>. До тех пор, пока они не станут равными будет выполняться оператор (операторы). Значение переменной цикла <нач.знач> автоматически увеличивается на единицу в ходе выполнения цикла. Надо сразу заметить, что задать шаг цикла, отличный от 1 в этом операторе нельзя.

Объяснение: