Напишите программу, которая "разворачивает" число наоборот, например, из числа 123 строит число 321. Используйте функцию для выполнения этой операции. PASCAL

Вот пример программы на языке Pascal, которая использует функцию для разворота числа:

pascal
program ReverseNumber;
uses
  SysUtils; // для работы с функцией IntToStr
// Функция для разворота числа
function ReverseDigit(Number: Integer): Integer;
var
  Reversed, Digit: Integer;
begin
  Reversed := 0;
  
  // Пока есть цифры в числе
  while Number <> 0 do
  begin
    Digit := Number mod 10;       // Получаем последнюю цифру
    Reversed := Reversed * 10 + Digit; // Добавляем её к результату
    Number := Number div 10;      // Убираем последнюю цифру
  end;
  
  ReverseDigit := Reversed;
end;
// Основная программа
var
  InputNumber, ResultNumber: Integer;
begin
  Write('Введите число: ');
  ReadLn(InputNumber); // Считываем число
  // Вызов функции
  ResultNumber := ReverseDigit(InputNumber);
  
  // Вывод результата
  WriteLn('Число наоборот: ', ResultNumber);
end.

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

1. Функция ReverseDigit:

   • Принимает на вход целое число.
   • Использует цикл while для получения последней цифры с помощью операции mod.
   • Убирает последнюю цифру с помощью операции div.
   • Постепенно собирает развернутое число, добавляя каждую цифру в конец результата.

2. Основная программа:

   • Считывает число от пользователя.
   • Передает его в функцию ReverseDigit.
   • Выводит развернутое число.

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

• Входное число: 123
• Процесс выполнения:
  • 1-й шаг: Берем 3 (остаток от деления 123 на 10), результат становится 3.
  • 2-й шаг: Берем 2 (остаток от деления 12 на 10), результат становится 32.
  • 3-й шаг: Берем 1 (остаток от деления 1 на 10), результат становится 321.
• Итог: Выводится 321.

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