Перевернуть число - Pascal (81149)

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

Перевернуть заданное натуральное число n и сложить с исходным. Использовать подпрограммы функции и процедуры, занесенные в модули(( При использовании вектора, он передается в процедуру в виде открытого массива((

Решение задачи: «Перевернуть число»

Листинг программы

unit perev;
interface
function Summ(n:longint):longint;
implementation
function Summ;
var m,p:longint;
    i:integer;
begin
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
Summ:=n+p;
end;
end.

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

Данный код представляет собой решение задачи по переворачиванию числа, написанное на языке Pascal. Вот как он работает:

Создается единичный блок (unit) под названием perev.
Определяется интерфейс функции Summ, которая принимает один аргумент типа longint и возвращает результат типа longint.
В реализации функции Summ объявляются переменные m, p и i типа longint и одна переменная типа integer.
В цикле while происходит следующее:
- m делим на 10 и сохраняем остаток в переменной i.
- Затем умножаем значение переменной p на 10 и прибавляем к нему значение i.
- После этого делим значение m на 10 и получаем новое значение m.
- Цикл продолжается до тех пор, пока значение m больше нуля.
После окончания цикла значение переменной m присваивается переменной Summ.
Функция Summ возвращает результат, который затем присваивается переменной n.
Конец блока perev. Таким образом, данный код переворачивает число, заданное в аргументе функции Summ.