Задание:
Ребята, помогите, очень очень срочно нужно) Дано двузначное число. Найти разность между первой и второй его цифрой, используя функции Mod и Div.
Решение:
Var a,b: real; beginread (b); a: =b div 10; b: =b mod 10; write (a-b); end.
Знаете другой ответ?