String50. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, разделенные одним пробелом и расположенные в обратном порядке.
Решение:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
program String50; var S,S2:String; i,poz:integer; begin Write('S: '); Readln(S); i:=1; S2:=''; poz:=pos(' ',S); While (poz<>0) do begin if poz=1 then delete(S,1,1); if poz>1 then begin S2:=copy(S,1,poz-1)+' '+S2; Delete(S,1,poz); end; poz:=pos(' ',S); end; S2:=S+' '+S2; Writeln(S2); end. |
Другие задачи из раздела String можно посмотреть здесь.
Комментарии: