& - конъюнкция или логическое умножение, даёт истину тогда и только тогда, когда обе переменных равны 1, т.е, когда А=1 и В=1.
v - дизъюнкция или логическое сложение даёт истину во всех случаях, за исключением того, когда обе переменных равны 0, т.е, когда А=0, В=0.
A&B - простейшая конъюнкция, пишем 1 в ячейке, где А=1, В=1, а в остальные пишем 0.
(AvB)&(AvC) - по закону дистрибутивности можем сократить до Av(B&C). А значит 1 ставим только в тех ячейках, где А=1 или B,C=1 (или оба условия выполняются одновременно), в остальных ставим 0.
(A&B)v(B&C) - по закону дистрибутивности можем сократить до B&(AvC). То есть мы можем сразу поставить 0 там, где B=0. В случаях, где В=1 мы везде ставим 1, за исключением ситуации, где A,C=0.
P.S Таблицы истинности во вложении:3
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.