Var
a,b,d:integer;
begin
Read(a,b);
d:=a mod 10 - b mod 10;
if d<0 then Writeln('Разряд единиц меньше у 1-го числа')
else
if d>0 then Writeln('Разряд единиц меньше у 2-го числа')
else Writeln('Разряды единиц у обоих чисел равны')
end.
Укр мове - мува, на русском уши
Все приложения обрабатывают информацию.
Запишем условие в 10-ном коде:
х(10)+2738-2584=138, х(10)=-16(10), двоичное отрицательное число в дополнительном коде х(2)=10000(2)