Найти модуль разности старшей и младшей цифр заданного натурального числа - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Найти модуль разности старшей и младшей цифр заданного натурального числа

Решение задачи: «Найти модуль разности старшей и младшей цифр заданного натурального числа»

textual
Листинг программы
Readln(A);
k:=A mod 10;
While A>9 do a:=a div 10;
Writeln(abs(A-k));

Объяснение кода листинга программы

  1. Вводится число A с помощью функции Readln
  2. Вычисляется старшая цифра числа A с помощью операции модуля (k := A mod 10)
  3. Пока число A больше 9 выполняется следующее действие: a) Число A делится на 10 (a := a div 10)
  4. Вычисляется модуль разности числа A и его старшей цифры (abs(A-k))
  5. Результат выводится на экран с помощью функции Writeln

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы