Question

Написать программу на Pascal, используя рекурсию:
Дан набор символов, оканчивающихся пробелом (короче это слово), Вывести символы в обратном порядке, используя рекурсию.

Answer 1

program pos;
var
    s: string;
    l: integer;
procedure PrintChar(n: integer);
var
    sub: string;
begin
    sub := Copy(s, n, 1);
    write(sub);
    if n <> 1 then
        PrintChar(n - 1);
end;
begin
    write('Введите слово: ');
    readln(s);
    l := Length(s);
    PrintChar(l);
end.