Дано натуральное число N. Выведите все его цифры по одной, в обратном порядке, разделяя...

Question

Дано натуральное число N. Выведите все его цифры по одной, в обратном порядке, разделяя их пробелами или новыми строками. При решении этой задачи нельзя использовать строки, списки, массивы (ну и циклы, разумеется). Разрешена только рекурсия и целочисленная арифметика.

Answer 1

Procedure R(n:longint);
Begin
Write(n mod 10,' ');
if n>1 then R(n div 10);
End;

Var
   n:longint;
Begin
Write('n = ');
ReadLn(n);
R(n)
End.