Доказать с таблиц истинности законы: общей инверсии, операций с 0 и 1,закон повторения, закон исключения
третьего и сочетательный закон.

Program lab3;const n=10;                   {количество элементов в массиве}
var   A:array [1..n] of real;          {объявление массива А}   i:byte;                                  {переменная для циклов}   b:boolean;                           {идентификатор роста}begin     writeln('vvedite tselie chisla matrici A[',n,',',n,']');     for i:=1 to n do begin                  {циклвводавмассив}         write('A[',i,'] = ');         readln(A[i]);     end;     writeln;     writeln('matraca imeet vid: ');     for i:=1 to n do begin                  {циклвыводамассива}         write(A[i]:3:3,'  ');        end;     writeln;     b := true;     for i:=1 to n-1 do               {цикл определения роста}          if (A[i] > A[i+1]) then begin  {если текущий больше следующего}             b := false;                                     {значит масив невозростающий}             break;          end;     if (b) then writeln('Masiv A - vozrostaushaya posledovatelnost''')     else writeln('Masiv A - ne vozrostaushaya posledovatelnost''');     readln;

В питоне:

def start():

  print("Выберите")

  print("0 - См в М")

  print("1 - М в Мм")

  read = input()

  if (read == "0"):

     ooo()

  elif (read == "1"):

     aaa()

  else:

    print("Нет такого выбора")

    inf()

def ooo():

  print("Введите значение")

  cm = input()

  math = 100

  result = float(cm) / math

  print(result)

  start()

def aaa():

  print("Введите значение")

  m = input()

  math = 1000

  result = float(m) * math

  print(result)

  start()

def inf():

  read = input()

  if (read == "0"):

     ooo()

  elif (read == "1"):

     aaa()

  else:

    print("0 - См в М")

    print("1 - М в Мм")

    print("Нет такого выбора")

    inf()

start()