Question

Напишите программу на ЯП Паскаль для решения следующей задачи:
Вывод на экран строки символов в обратном порядке (например, была введена строка ‘наоборот’, результат после выполнения программы на экране – ‘торобоан’).

Answer 1

function foo(s: string; n: integer): string;

begin

 if n = 1 then foo := s[1]

 else foo := s[n] + foo(s, n - 1)

end;

begin

 var s := 'наоборот';

 Print(foo(s, s.Length))

end.