Program abc;
const<span> arr: array [1..4] of array [1..4] of integer = ((1,2,3,4),(5,6,7,8),(9,10,11,12),(13,14,15,16));
</span>var<span> i, j: integer;
</span>begin
<span>
for i := 1 to 4 do
</span><span> begin</span><span>
for j := 1 to 4 do
</span><span> begin
</span><span> write(arr[i][j], ' ');
</span><span> end;
</span><span> writeln();
</span><span> end;</span>
<span> writeln();
</span><span>
for i := 1 to 4 do
</span><span>begin
</span><span> j := arr[2][i];
</span><span> arr[2][i] := arr[3][i];
</span><span> arr[3][i] := j;
</span><span> end;
</span><span> for i := 1 to 4 do
</span><span>begin
</span><span> for j := 1 to 4 do
</span><span> begin
</span><span> write(arr[i][j], ' ');
</span><span> end;</span><span>
writeln();
</span><span> end;
</span><span>end.</span>
A1
(X<15)*((X>=3)->(X>=7))
Упростим:
(X<15)*( (X < 3) + (X >=7))
X < 15, подходят все варианты, убираем это условие
((X < 3) + (X >=7))
X < 3 нет
X >= 7 есть единственное(8)
ответ:4
А2
A+¬A*B
(A+¬A) * (A+B)
1 * (A + B)
A + B
Ответ: 2
А3
Анализируем первую строку таблицы:
Когда A, B, C одновременно равны нулю, то функция(D) равна "1".
Проверим:
Вариант 1)A&B&¬C = 0*0*1 = 1 - ложь, ответ не подходит
Вариант 2)A+B+C = 0+0+0 = 1 - ложь
Вариант 3)¬A*¬B*¬C = 1*1*1 = 1 - правда
Вариант 4) ¬A+B+C = 1 + 0 +0 = 1 - правда
Подставим в подходящие функции другие элементы таблицы
Вариант 4, строка 2: 1+0+1 = 0 - Ложь.
Рассматривать дальше не имеет смысла, т.к. остался 1 вариант
Ответ:3
Скорее всего <span>волейболом, так как футбол и баскетбол исключаются </span><span>
</span>
Программа.................................................
Пєро: 1) Пєро загадав 9, 2)9+1=10, 3)10*3=30, 4)30/3=10, 5)10-4=6