Дано натуральное число n. Написать рекуррентную процедуру вывода на экран следующей последовательности чисел - Pascal

Формулировка задачи:

Дано натуральное число n. Написать рекуррентную процедуру вывода на экран следующей последовательности чисел: 1 2 1 3 2 1 ... N N-1 N-2 ... 1

Решение задачи: «Дано натуральное число n. Написать рекуррентную процедуру вывода на экран следующей последовательности чисел»

Листинг программы

procedure p(n,i:integer);
begin
  if n<i then p(n+1,i);
  write(n,' ');
end;
 
var n,i:integer;
begin
  readln(n);
  for i:=1 to n do begin
    p(1,i); writeln;
  end;
end.

Объяснение кода листинга программы

Данный код написан на языке Pascal и представляет собой рекуррентную процедуру вывода на экран последовательности чисел. В коде используются две переменные: n и i. Переменная n представляет собой натуральное число, которое мы хотим вывести, а переменная i - это индекс текущего числа в последовательности. Процедура p(n,i) вызывает саму себя, если значение n меньше значения i. Это позволяет нам рекурсивно выводить числа в заданной последовательности. Внутри процедуры p(n,i) происходит следующее:

Если значение n меньше значения i, то вызывается процедура p(n+1,i). Это позволяет нам перейти к следующему числу в последовательности.
Затем выводится само число n. Далее представлен код, который использует данную процедуру для вывода последовательности чисел от 1 до n. Переменная n считывается с помощью функции readln(n), а затем происходит итерация от 1 до n с помощью цикла for. В каждой итерации вызывается процедура p(1,i) для вывода текущего числа и его пробела, а затем выводится число i. Таким образом, данный код позволяет вывести заданную последовательность чисел на экран.