ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!! УМОЛЯЯЯЮ!!!!!! ОЧЕНЬ СРОООЧНО!!!!!!!!!!! Дана строка,...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!! УМОЛЯЯЯЮ!!!!!! ОЧЕНЬ СРОООЧНО!!!!!!!!!!!
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в обратном порядке.
паскаль

Answer 1

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString('>').ToWords.Reverse.Println
end.

Пример
> А роза упала на лапу Азора
Азора лапу на упала роза А

Answer 2

Var s,s2: string; i: integer;
begin
writeln ('Введите строку:');
readln (s);
s:=Trim(s);
s:=s+' ';
while length(s)>0 do begin
  i:=1;
  while (s[i]<>' ') and (i  s2:=LeftStr(s,i)+s2;
  delete(s,1,i);
  s:=TrimLeft(s);
end;
s2:=Trim(s2);
writeln (s2)
end.
---------------------------------------
Введите строку:
  мама    мыла  раму   
раму мыла мама
---------------------------------------