Пусть меня кто-то исправит, но у меня получается 10000001110110
===== PascalABC.NET =====
function nF(n: integer) := Range(1, n).Product;
begin
SeqGen(5, i -> nF(i), 1).Sum.Println
end.
По данной схеме составим логическую функцию:
F= A * B + not A + C, упрощаем
F= not A + B +C,
строим таблицу истинности:
Таблица во вложении: