4 да я знаю я это самастаятельную прохадил
Таблица истинности:
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, то есть ИСТИННО всегда.
Дерево показано на рисунке.
Var
x:integer;
y:real;
begin
readln(x);
if x < 0 then
begin
y:= 1/x*x;
end
else
y:=x/6;
writeln(y);
end.