С клавиатуры вводят два целых числа.У какого числа последний разряд (единица) меньше

Question

С клавиатуры вводят два целых числа.У какого числа последний разряд (единица) меньше

Answer 1

1 0 / {x} 1 0 * <-> 1 0 / {x} 1 0 * - x<0 20 2 С/П /-/ x<0 25 1 С/П 0 С/П<br>
Выводит 1, 2 или 0, если последние разряды равны.

Answer 2

Var
  a,b,d:integer;

begin
  Read(a,b);
  d:=a mod 10 - b mod 10;
  if d<0 then Writeln('Разряд единиц меньше у 1-го числа')<br>  else
    if d>0 then Writeln('Разряд единиц меньше у 2-го числа')
    else Writeln('Разряды единиц у обоих чисел равны')
end.