У бабушки было три кота - Рыжий, Белый и Серый. Ночью кто-то из них разбил бабушкину любимую вазу. Поскольку бабушка очень любила сериал "Шерлок Холмс", она почувствовала себя детективом и начала размышлять над тем, кто из её котов разбил вазу: 1) Если Рыжий не проказничал или Белый проказничал, то это Серый напроказничал. 2) Если Рыжий не проказничал, то Серый не проказничал. Тема "Логика". Составить таблицу истинности, найти по таблице значения переменных для некоторых F=1, проанализировать результат.

Ребятам уже встречалась подобная задача (см. комментарии к задаче 18). Здесь, так же как и в задаче 18, нужно экономить вершины, т. е. не размещать на одном уровне две одинаковые вершины, имеющие общую предыдущую (или две одинаковые корневые вершины). Исключение из этого правила составляет лишь случай, когда одна из одинаковых вершин является листом, а другая – нет. Например, в мешке V есть слова КИС и КИСА. У этих путей будут две общие вершины – К и И. Однако бусины С этих путей будут разными вершинами дерева.

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

procedure BubbleSortFlag(a:array of integer);
// пузврьковая сортировка с флажком
begin
  var f:=True; // флажок перестановки
  var p:=1; // номер перестановки
  var n:=a.Length;
  while f do begin
    f:=false;
    for var i:=0 To n-p-1 Do
      if a[i]>a[i+1] then begin
        Swap(a[i],a[i+1]);
        f:=true
        end;
      p+=1
    end
end;

begin
  var a:=ArrRandom(10,-10,10); a.Println;
  BubbleSortFlag(a);
  a.Println
end.

Пример
-7 5 5 1 -3 -5 -8 1 2 3
-8 -7 -5 -3 1 1 2 3 5 5