Машина или тебе как нужно ну машина модель...
См. приложения.
лист Excel живой, внизу для перехода между заданиями ярлыки
Таблица истинности для двух функций, потому, что фото не четкое.
Немного изменил
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(20, k -> (2 * k + 1) / (4 * k * k * k - 3), 1).Sum.Println
end.
<h2>3.36697051758274 </h2>
Не (А + В) = (не А) & (не В)
не А + (не А) & (не В) = не А
не (А & B) = не А + не В
B & (не А + не В) = (не А) & B
не ( (не А) & B ) = А + не B
F = не А + А + не В = 1 + не В = 1