Var a,b:integer;
begin
readln(a);
readln(b);
writeln(abs(a-b));
end.
Вот: 1. самый короткий путь равен 16; 2. 22; 3. 21
Разобьем на простые
B&C = 1&1 = 1
(А&(B&C)) = 0&1 = 0
A&B = 0&1 = 0
((A&B)&C) = 0&1 = 0
Что означает Ваш "-" Если это "-->", то
(А&(B&C))-->((A&B)&C) = 0 --> 0 = 1
Если "<-->", то
(А&(B&C))<-->((A&B)&C) = 0 <--> 0 = 1
Выражение с переменными #2
B&C = 0&1 = 0
(А&(B&C)) = 0&0 = 0
A&B = 0&0 = 0
((A&B)&C) = 0&1 = 0
Если --> :
(А&(B&C))-->((A&B)&C) = 0 --> 0 = 1
Если <--> :
(А&(B&C))<-->((A&B)&C) = 0 <--> 0 = 1
<span>Программа выводящая одно число: сумму всех чисел , кратных 4 и оканчивающихся на 6.</span>
const
n = 3;
var
s,i : integer;
begin
for i := 1 to n do
if odd(i) then
s := s + i * i * i
else
s := s + i * i;
writeln (s);<span>
end.</span>