Рекурсия: вывести числовую последовательность сначала в прямом, а затем в обратном порядке - Free Pascal
Формулировка задачи:
Написать программу, выводящую числовую последовательность из n элементов сначала в прямом, а затем в обратном порядке рекурсией(не используя служебные слова: array,while,repeat,for,[])Пример:
Ввод
4
3 14 2 4
Вывод
3 14 2 4 4 2 14 3
Спасибо большое заранее!
Решение задачи: «Рекурсия: вывести числовую последовательность сначала в прямом, а затем в обратном порядке»
textual
Листинг программы
uses crt; function p(n : integer) : char; var X : Integer; begin p := #0; if n > 0 then begin readln(X); write(X: 3, P(n - 1):0); write(X: 3); end; end; var n : Integer; begin write('n = '); readln(n); p(n); writeln; end.