На числовой прямой даны два отрезка: P = [12, 23] и Q = [8, 30]. Отрезок A таков, что формула ((x ∈ P) ∧ (x ∈ Q)) ⇒ (x ∈ A) истинна при любом значении переменной x. Какое наименьшее количество точек, соответствующих чётным целым числам, может содержать отрезок A? Подсказки:
1. Обрати внимание, что в данном задании требуется найти НАИМЕНЬШЕЕ количество точек соответствующих чётным целым.
2. Определение импликации: а ⇒ b = отр. а v b
3. Для этого задания импликация работает так:
(P ∧ Q) ⇒ A = отр. P v отр. Q v A

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

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
  var k:=ReadInteger('Номер строки k для обмена:')-1;
  Writeln('*** Исходная матрица ***');
  var rmatr:=MatrRandom(n,m,-99,99);
  rmatr.Println(4); Writeln(4*rmatr.ColCount*'-');
  var j:=0;
  for var i:=1 to Min(n,m)-1 do
    if rmatr[i,i]>rmatr[j,j] then j:=i;
  if k<>j then rmatr.SwapRows(k,j);
  Writeln('*** Полученная матрица ***');
  rmatr.Println(4)
end.

Пример
Количество строк и столбцов в матрице: 7 8
Номер строки k для обмена: 3
*** Исходная матрица ***
 -53   6 -57 -39  41  56  43  36
  79 -57 -69 -67 -70  29  25 -87
 -70  84 -29 -47 -43 -79  97 -45
  99  48 -92 -22 -17   8  57  -9
 -12 -58 -73  -5 -12 -76 -90  87
 -93 -31 -18  65 -77  27 -43  98
 -61  -2 -23 -73  72 -93  20 -73

*** Полученная матрица ***
 -53   6 -57 -39  41  56  43  36
  79 -57 -69 -67 -70  29  25 -87
 -93 -31 -18  65 -77  27 -43  98
  99  48 -92 -22 -17   8  57  -9
 -12 -58 -73  -5 -12 -76 -90  87
 -70  84 -29 -47 -43 -79  97 -45
 -61  -2 -23 -73  72 -93  20 -73

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

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*m*'-');
  var s:='';
  for var i:=0 to n-1 do
    if a.Row(i).Pairwise.Select(t->Sign(t[0])<>Sign(t[1])).All(t->t=True) then
      s+=(i+1)+' ';
  if s.Length=0 then Writeln('Нет искомых строк')
  else Writeln('Номера строк: ',s)
end.

Пример
Количество строк и столбцов в матрице: 10 5
*** Исходная матрица ***
 -27  90  57   3 -62
  35 -92 -54  36  17
 -57 -32 -31  85  84
  22 -82 -42 -26  87
 -69  75 -26 -88   7
 -76 -60 -73  35  45
  94  66  95 -85 -40
  83 -60  59 -56  49
 -81 -53  67  11  -9
 -39 -73  67 -49  91

Номера строк: 8