Помогите написать программу в pascal.
Найти разность наибольшей и наименьшей цифр 3-х значного числа.

Для того чтобы найти разность между наибольшей и наименьшей цифрой трехзначного числа на языке Pascal, можно воспользоваться следующим алгоритмом:

1. Сначала нам нужно получить все цифры числа. Для этого нужно извлечь каждую цифру числа с помощью операций деления и взятия остатка.
2. Далее, мы будем искать наибольшую и наименьшую цифры среди извлеченных.
3. В конце вычислим разность между наибольшей и наименьшей цифрой.

Пример программы на Pascal:

pascal
program FindDifference;
var
  num, digit1, digit2, digit3: integer;
  maxDigit, minDigit, difference: integer;
begin
  // Вводим трехзначное число
  write('Введите трехзначное число: ');
  readln(num);
  
  // Извлекаем цифры числа
  digit1 := num div 100;          // Первая цифра (сотни)
  digit2 := (num div 10) mod 10;  // Вторая цифра (десятки)
  digit3 := num mod 10;           // Третья цифра (единицы)
  // Инициализируем maxDigit и minDigit значениями первой цифры
  maxDigit := digit1;
  minDigit := digit1;
  // Находим наибольшую цифру
  if digit2 > maxDigit then
    maxDigit := digit2;
  if digit3 > maxDigit then
    maxDigit := digit3;
  // Находим наименьшую цифру
  if digit2 < minDigit then
    minDigit := digit2;
  if digit3 < minDigit then
    minDigit := digit3;
  // Вычисляем разность
  difference := maxDigit - minDigit;
  // Выводим результат
  writeln('Разность между наибольшей и наименьшей цифрой: ', difference);
end.

Пояснение:

1. Чтение числа: Вводим число с помощью readln.
2. Извлечение цифр:
   • Первая цифра (сотни) извлекается через num div 100.
   • Вторая цифра (десятки) — это (num div 10) mod 10, т.е. делим число на 10, чтобы отбросить единицы, и затем берем остаток от деления на 10.
   • Третья цифра (единицы) — это просто num mod 10.
3. Поиск максимальной и минимальной цифры: Инициализируем переменные maxDigit и minDigit значениями первой цифры, а затем сравниваем их с другими цифрами для поиска наибольшей и наименьшей.
4. Вычисление разности: Разница между наибольшей и наименьшей цифрой вычисляется и выводится на экран.

Пример работы программы:

Если пользователь вводит число 547, программа выведет:

Разность между наибольшей и наименьшей цифрой: 4

(поскольку наибольшая цифра — 7, а наименьшая — 3, их разность 7 - 3 = 4).

Эта программа работает с любыми трехзначными числами, обеспечивая правильный расчет разности между максимальной и минимальной цифрой.