Pascal. Задача 7-3

Пользователь вводит число. Используя рекурсию, вывести число "наоборот", то есть число, в котором цифры следуют в обратном порядке. Например, если ввести 1234, то вывести надо 4321.

Решение


procedure digits(n : integer);
begin
  if n < 10 then
    write(n)
  else
  begin
    write(n mod 10);
    digits(n div 10);
  end;
end;

var
  n : integer;
begin
  Write('Введите число: ');
  Readln(n);
  Write('Число "наоборот": ');
  digits(n);
  writeln();
end.

◄▲►