Большая сколько различных решений имеет система уравнений? (x1 → x2) /\ (x2 → x3) /\ (x3 → x4) /\ (x4 → x5) = 1 (у1 → у2) /\ (у2 → у3) /\ (у3 → у4) /\ (у4 → у5) = 1 (z1 → z2) /\ (z2 → z3) /\ (z3 → z4) /\ (z4 → z5) = 1 х1 \/ у1 \/ z1 = 1 где x1, x2, …, x5, у1, у2, …, у5, z1, z2, …, z5 – логические переменные? в ответе не нужно перечислять все различные наборы значений переменных, при которых выполнено данное равенство. в качестве ответа нужно указать количество таких наборов.

Из последнего уравнения: х1 + у1 +z1 =1  следует,
что  не может быть одновременно    x1=0 y1=0 z1=0

рассмотрим первое уравнение,  это логическое умножение, каждый сомножитель должен быть равен 1, такое будет, если:
(не х1 +  х2)    *   (не х2 +х3) *(не х3 +х4)  *        ( не х4 +х5) = 1
  1            1                  1      1          1        1                     1         1

   0            0                  0      0          1        1 (2реш)        1       1  (3 решения)
   0           1                   0      1          0         1                    0       1
                                     1       1         1         0                    0       0
Итак, при х1=1 - одно решение, при х1=0   - 5 решений
Для второго ( с Y) и третьего ( сZ ) ур-я - аналогично по 5 решений.
Возможные варианты сочетаний значений х1, y1,z1   :
  х1   y1  z1
 0     0     0    - (четвёртое уравнение исключает это сочетание)
 0     0     1         5*5*1 =25 решений
0      1    0         5*1*5 =25 реш
  0     1    1          5*1*1 =5
1     0      0            1*5*5=25
1     0      1           5 реш
1     1     0            5
1     1      1            1
                               5+5+5+25+25+25+1 = 91  < ответ
Если ответ не верный, напишите. Буду думать.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var m:=ReadInteger('Количество элементов в массиве А (m):');
  var n:=ReadInteger('Количество элементов в массиве B (n):');
  var k:=ReadInteger('Позиция вставки k (1<k<m):');
  if (k>1) and (k<m) then begin
    var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println;
    var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println;
    Writeln('Результат вставки'); (a[:k]+b+a[k:]).Println
    end
  else Writeln('Вы нарушили условие 1<k<m')
end.

Тестовое решение
Количество элементов в массиве А (m): 10
Количество элементов в массиве B (n): 6
Позиция вставки k (1<k<m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Результат вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26

Program smallest;<br /><br />var <br />a,b,c:integer;<br /><br />begin<br /><br />write('введите а: ');<br />readln(a);<br />write('введите b: ');<br />readln(b);<br />write('введите c: ');<br />readln(c);<br /><br />if (a - b) > 0 then <br />begin<br />if (a - c) > 0 then<br />writeln('a - наибольшее!');<br />end;<br /><br />if (b - a) > 0 then<br />begin<br />if (b - c) > 0 then<br />writeln('b - наибольшее!');<br />end;<br /><br />if (c - a) > 0 then<br />begin<br />if (c - b) > 0 then<br />writeln('c - наибольшее!');<br />end;<br /><br />end.