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

127

159

Посмотреть ответы 3

Ответы на вопрос:

ум5789

Информатика

4,7(85 оценок)

Var s: string; procedure printchar(s: string; n: integer); begin if s[n]< > ' ' then begin printchar(s,n+1); write(s[n]); end; end; begin write('введите слово: '); readln(s); printchar(s,1); end. пример: введите слово: телефон нофелет

Kate7779393727

Информатика

4,6(91 оценок)

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.