<span>1й элемент реализует функцию A=
,
2й - B=</span><span><span>
, 3й - F=
Таблица истинности
x
y
z
A
B
F
</span><span>0
0
0
1
1
0
</span><span>0
0
1
1
0
0
</span><span>0
1
0
1
1
0
</span><span>0
1
1
1
0
0
</span><span>1
0
0
1
1
0
</span><span>1
0
1
1
0
0
</span><span>1
1
0
0
1
0
</span><span>1
1
1
0
0
1
</span></span>
Из таблицы видно, что F=
Количество наборов 6, какие это смотри на вложении
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrString(5);
var b := a.Select(t -> t.Length).ToArray;
var n := b.Max;
for var i := 0 to 4 do
Writeln(a[i]:n, b[i]:3)
end.