Решается она подобно задаче уровня 1. Значения логической формулы для всех значений переменных можно записать в массив. Это и сделано в примере решения.
program Level2; const TabRes :array['0'..'1','0'..'1','0'..'1'] of byte = (((0,0),(0,0)),((0,0),(1,1)));
var A, B, C : string; i : byte; begin readln(A); readln(B); readln(C); for i:=1 to length(A) do write(TabRes[A[i],B[i],C[i]]); writeln; end.
Разбор задачи уровня 3
Возьмите пример решения задачи уровня 2 и замените значения в массиве TabRes.
Думаю, все заметили, что задачи уровней 1, 2 и 3 решаются одинаково.