Задача 4:

Дано десятичное число N. Составить рекурсивную процедуру, печатающую все цифры числа в "прямом" порядке, в том порядке, в каком они идут в самой записи числа N.

Программный код задачи 4:

       Program n4;
       {
         Задача.  Дано десятичное число N. Составить рекурсивную
                  процедуру, печатающую все цифры числа в "прямом"
                  порядке, в том порядке, в каком они идут в
                  самой записи числа N.
       }

       Uses Crt;

       Var
         N { Данное число }
         : longint;

       Procedure print_ts (
                            n { десятичное число }
                            : longint
                          );
       {
         Рекурсивная процедура печати цифр числа в "прямом" порядке.
       }
       begin
         {
           как только n станет из [0..9] рекурсию нужно будет
           прекратить, потому что пора уже печатать цифры числа
         }
         if n > 9
           then
             print_ts (n div 10);
         Write (n mod 10, ' ');
       end;

       Begin
         ClrScr;

         Write ('Введите число: ');
         ReadLn (N);

         print_ts (N);
         WriteLn;
         ReadLn;
       End.