Нам задали по инфе: нужно взять слово и изменить его на другое, при этом можно изменять только одну букву (не обязательно из 3 букв слово) дым-дом не подойдет нужно много последовательностей пример: бег-бог-бок-бак-мак-маг-шаги т.д слово должно существовать!

овечка свечка)) рожки ложки)) том сом ком лом дом дым)) боль моль соль роль ноль)) гора кора нора пора)) мак бак рак лак)) дочка точка бочка)) надеюсь как то

Бег-Бог-Бок-Бак-Мак-Маг-

// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var n:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',m,'x',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var q:=a.Cols.Select(x->x.First<x.Last).ToArray;
  var k:=q.Where(r->r).Count;
  Writeln('*** Результирующая матрица [',m,'x',k,'] ***');
  var b:=MatrFill(m,k,0);
  var l:=0;
  for var j:=0 to n-1 do
    if q[j] then begin
      for var i:=0 to m-1 do b[i,l]:=a[i,j];
      l+=1
      end;
  b.Println(4)
end.

Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5x8] ***
  15 -35 -11 -18  49 -32  31 -47
 -21 -46   7 -48   3  24 -48   5
  28 -46  36  -9  17 -32 -44 -10
 -16   7 -14  40  13  30  50 -28
  -8  35 -49  47 -31  30  18  20

*** Результирующая матрица [5x4] ***
 -35 -18 -32 -47
 -46 -48  24   5
 -46  -9 -32 -10
   7  40  30 -28
  35  47  30  20

// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var N:=ArrRandom(50,-111,348); N.Println;
  Writeln('Произведение элементов, кратных 5, равно ',
    N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b));
  if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then
    Writeln('Нечетных элементов больше')
  else Writeln('Четных элементов больше')
end.

Пример
151 129 60 55 140 -61 180 221 -7 1 -6 118 80 215 -109 176 82 265 209 234 36 276 71 147 268 138 288 300 37 270 290 79 -88 183 197 -13 23 222 -106 137 76 180 240 287 -55 -7 48 111 222 -82
Произведение элементов, кратных 5, равно -21155254513747200000000000000
Четных элементов больше