Var
a, b: integer;
begin
readln(a, b);
if a * b < 0 then {если числа разных знаков}
writeln(2 * a, ' ', 2 * b)
else if a > 0 then begin{иначе одного знака и больше нуля}
if a > b then
writeln((a + b) / 2, ' ', b)
else
writeln(a, ' ', (a + b) / 2)
end
else begin
if a > b then
writeln(a, ' ', -b)
else
writeln(-a, ' ', b)
end;
end.
1)10+3*16+6*16^2+13*16^3+12*16^4
2)12+12*16
3)4+15*16+13*16^2+6*16^3=+10*16^4+11*16^5
Ни первое, ни второе не подойдут, тут даже преобразовывать не надо. Конечно, все самое интересное в длинном выражении. <em>Его преобразование во вложении.</em>
Ответ: 3) <span>(A → B) → ((A → C) → (A → B и C))</span>