Обратный порядок цифр числа - Free Pascal
Формулировка задачи:
В вводе имеем положительное число меньше чем 32768. Нужно, чтобы на выводе было число с обратным порядком цифр.
Например:
Ввод:
23551
Вывод:
15532
Решение задачи: «Обратный порядок цифр числа»
textual
Листинг программы
- var a:integer;
- function obr(x:integer):integer;
- var xx:integer;
- begin
- xx:=0;
- while x>0 do
- begin
- xx:=xx*10+(x mod 10);
- x:=x div 10
- end;
- obr:=xx
- end;
- begin
- readln(a);
- writeln(obr(a))
- end.
Объяснение кода листинга программы
- Объявлены две переменные:
a
типа integer (целое число) иxx
типа integer (целое число), инициализированная значением 0. - Функция
obr
принимает целочисленный аргументx
и возвращает целочисленное значение. Внутри функции объявлена переменнаяxx
типа integer (целое число), инициализированная значением 0. - В функции
obr
выполняется цикл while, который выполняется до тех пор, пока значение переменнойx
больше 0. - Внутри цикла
xx
умножается на 10 и к результату прибавляется остаток от деленияx
на 10. - Значение
x
делится на 10. - После выхода из цикла
xx
содержит обратный порядок цифр числаa
. - Значение
xx
присваивается аргументуx
функцииobr
. - В основной программе вводится значение переменной
a
с помощью функции readln. - Вызывается функция
obr
с аргументомa
. - Результат функции
obr
выводится на экран с помощью функции writeln.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д