Вывод цифр числа в обратном порядке с помощью рекурсии

Posted by obzor under Pascal

Написать рекурсивную процедуру для вывода на экран цифр натурального числа в обратном порядке. Применить эту процедуру ко всем числам из интервала от А до В.

newerow1989

procedure AB(n:integer);
begin
   If n<10 then
      Write(n) else
   begin
      Write(n mod 10);
      AB(n div 10);
   end;
end;

const a=10;
      b=100000;
var n:integer;
begin
   Randomize;
   n:=Random(b+a)+a;
   Write(n,'  <==>  ');
   AB(n);
   Writeln;
   Readln;
end.

Serge_Bliznykov

скорее — тут цикл нужен:

begin
   for n:=a to b do begin
     Write(n,'  <==>  ');
     AB(n);
     Writeln;
   end;

тема на форуме

Похожие статьи

• Задача на рекурсию: массив 1..N. с N переход на позицию N + 1 или N + 5. Определить с помощью рекурсии можно ли собрать сумму чисел K
• Как пройти по всем элементам MenuStrip?
• Рекурсивное копирование данных