Рекурсия: вывести числовую последовательность сначала в прямом, а затем в обратном порядке - 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.

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы