После упрощения получим:
¬AvBvC
Лист Excel живой. Копируем элементы, подключаем клетки автоматически заполняется таблица.
Лист защищен без пароля, чтобы случайно не повредить формулы.
===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
Используем закон де Моргана и закон двойного отрицания.
Решение во вложении.
640*480 = 307 200пикселей.
307200*3 = 921 600Байт.
921 600Байт*8 =7 372 800Бит
7372800Бит/28800Бит/c=256 секунд