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

Ответ учителя по предмету Информатика

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.