Var a,b,c:integer;
begin
c:=1;
for a:=5 downto 2 do begin
for b:=5 downto c do begin
write(a);
end;
writeln('');
c:=c+1;
end;
end.
Таблица истинности:
A | B | A*B | ~(A*B) | ~(A*B) + A*B
0 | 0 | _ 0 _| _ 1 __ | _ 1
0 | 1 | _ 0 _| _ 1 __ | _ 1
1 | 0 | _ 0 _| _ 1 __ | _ 1
1 | 1_ | _ 1 _| _ 0 __ | _ 1
Не обращайте внимания на подчеркивания, это для выравнивания таблицы.
Чего и следовало ожидать - логическое ИЛИ любого выражения и его же отрицания тождественно равно логической 1, то есть ИСТИННО всегда.
Дерево показано на рисунке.
Одна цифра или буква или пробел это 1 бит
Program prog;
uses crt;
var a,b,v:integer;
begin
clrscr;
write('Возраст Антона = ');
readln(a);
write('Возраст Бориса = ');
readln(b);
write('Возраст Виктора = ');
readln(v);
writeln;
if (a>b)and(a>v) then writeln('Антон старше всех.');
if (b>a)and(b>v) then writeln('Борис старше всех.');
if (v>a)and(v>b) then writeln('Виктор старше всех.');
if (a=b)and(a>v) then writeln('Антон и Борис старше Виктора');
if (a=v)and(a>b) then writeln('Антон и Виктор старше Бориса');
if (b=v)and(b>a) then writeln('Борис и Виктор старше Антона');
if (a=b)and(a=v) then writeln('Антон,Борис и Виктор одного возраста');
end.