Дано натуральное число n. выведите все его цифры по одной, в обратном порядке, разделяя их пробелами или новыми строками. при решении этой нельзя использовать строки, списки, массивы (ну и циклы, разумеется). разрешена только рекурсия и целочисленная арифметика.
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.