Составить таблицы истинности

Решено на языке PascalАВС.NЕТ 3.9

## uses School;

var t := TrueTable((a, b, c) -> (a <= not b) or (b = c) and a);

TrueTablePrint(t, 2, 'ABC');

t := TrueTable((a, b, c) -> a and b <= (not a = b or c));

TrueTablePrint(t, 2, 'ABC');

t := TrueTable((a, b, c) -> (a <= b = not a) and c or b);

TrueTablePrint(t, 2, 'ABC')

{ Результаты

A B C F         A B C F         A B C F

-------         -------         -------

0 0 0 1         0 0 0 1         0 0 0 0    

0 0 1 1         0 0 1 1         0 0 1 1

0 1 0 1         0 1 0 1         0 1 0 1

0 1 1 1         0 1 1 1         0 1 1 1

1 0 0 1         1 0 0 1         1 0 0 0

1 0 1 1         1 0 1 1         1 0 1 1

1 1 0 0         1 1 0 0         1 1 0 1

1 1 1 1         1 1 1 0         1 1 1 1

}