Вводится строка слов. Вывести слова в обратном порядке.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
var str: string; len, i, a: byte; begin readln(str); len := length(str); a := 0; for i:=len downto 1 do begin if str[i] = ' ' then begin write(copy(str,i+1,a),' '); a := 0; end else a := a + 1; end; write(copy(str,i,a)); writeln; end. |
Похожие записи: