ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!! УМОЛЯЯЯЮ!!!!!! ОЧЕНЬ СРОООЧНО!!!!!!!!!!!
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в обратном порядке.
паскаль
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в обратном порядке.
паскаль
More Questions From This User See All
Answers & Comments
begin
writeln ('Введите строку:');
readln (s);
s:=Trim(s);
s:=s+' ';
while length(s)>0 do begin
i:=1;
while (s[i]<>' ') and (i<length(s)) do i:=i+1;
s2:=LeftStr(s,i)+s2;
delete(s,1,i);
s:=TrimLeft(s);
end;
s2:=Trim(s2);
writeln (s2)
end.
---------------------------------------
Введите строку:
мама мыла раму
раму мыла мама
---------------------------------------