Обратный порядок цифр числа - Free Pascal

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

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

В вводе имеем положительное число меньше чем 32768. Нужно, чтобы на выводе было число с обратным порядком цифр. Например: Ввод: 23551 Вывод: 15532

Решение задачи: «Обратный порядок цифр числа»

textual
Листинг программы
  1. var a:integer;
  2. function obr(x:integer):integer;
  3. var xx:integer;
  4. begin
  5.  xx:=0;
  6.  while x>0 do
  7.   begin
  8.    xx:=xx*10+(x mod 10);
  9.    x:=x div 10
  10.   end;
  11.  obr:=xx
  12. end;
  13. begin
  14.  readln(a);
  15.  writeln(obr(a))
  16. end.

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

  1. Объявлены две переменные: a типа integer (целое число) и xx типа integer (целое число), инициализированная значением 0.
  2. Функция obr принимает целочисленный аргумент x и возвращает целочисленное значение. Внутри функции объявлена переменная xx типа integer (целое число), инициализированная значением 0.
  3. В функции obr выполняется цикл while, который выполняется до тех пор, пока значение переменной x больше 0.
  4. Внутри цикла xx умножается на 10 и к результату прибавляется остаток от деления x на 10.
  5. Значение x делится на 10.
  6. После выхода из цикла xx содержит обратный порядок цифр числа a.
  7. Значение xx присваивается аргументу x функции obr.
  8. В основной программе вводится значение переменной a с помощью функции readln.
  9. Вызывается функция obr с аргументом a.
  10. Результат функции obr выводится на экран с помощью функции writeln.

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


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

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

10   голосов , оценка 3.8 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы