Var
a, b, c: longint;
begin
readln(a, b);
c := a - b;
if (c > b) then
writeln('Валя собрала на ', c - b, ' кг клубники больше чем Вера.');
if (c < b) then
writeln('Вера собрала на ', b - c, ' кг клубники больше чем Валя.');
if (c = b) then
writeln('Девочки собрали одинаковое количество клубники.');
end.
Никакие.
Доказываю:
Попробуйте найти 2 целых числа от 1 до 99, которые в сумме составляют 100 и если инвертировать одно из них, получается второе число. Это невозможно, а максимально близкий результат - 90 ; 09
10101010₂ = 1 * 2⁷ + 0 * 2⁶ + 1 * 2⁵ + 0 * 2⁴ + 1 * 2³ + 0 * 2² + 1 * 2¹ + 0 * 2⁰
275,13₁₀ = 2 * 10² + 7 * 10¹ + 5 * 10⁰ + 1 * 10⁻¹ + 3 * 10⁻²
2A₁₆ = 2 * 16¹ + 10 * 16⁰
123₅ = 1 * 5² + 2 * 5¹ + 3 * 5⁰