Найти модуль разности старшей и младшей цифр заданного натурального числа - Free Pascal
Формулировка задачи:
Найти модуль разности старшей и младшей цифр заданного натурального числа
Решение задачи: «Найти модуль разности старшей и младшей цифр заданного натурального числа»
textual
Листинг программы
Readln(A); k:=A mod 10; While A>9 do a:=a div 10; Writeln(abs(A-k));
Объяснение кода листинга программы
- Вводится число A с помощью функции Readln
- Вычисляется старшая цифра числа A с помощью операции модуля (k := A mod 10)
- Пока число A больше 9 выполняется следующее действие: a) Число A делится на 10 (a := a div 10)
- Вычисляется модуль разности числа A и его старшей цифры (abs(A-k))
- Результат выводится на экран с помощью функции Writeln