У бабушки было три кота - Рыжий, Белый и Серый. Ночью кто-то из них разбил бабушкину любимую вазу. Поскольку - id1062074020201229 от danilowamariy7p06vj8 29.12.2020 16:28

Question

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

danilowamariy7p06vj8 · Accepted Answer

// 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

MOGZ ответил