Расставить слова в обратном порядке

@Tat'9na · Регистрация: 17.09.2011

Author24 — интернет-сервис помощи студентам

Ввести строку. Расставить слова в обратном порядке.

@MaXuM · 05.12.2011, 13:14

Pascal

uses crt;
var
   s,s1,s2:string;
   i:integer;
begin
     writeln('Ââåäè ñòîðêó:');
     readln(s);
     writeln;
     s1:='';
     s2:='';
     for i:=1 to length(s) do
         begin
              if s[i] <> ' ' then
              s1:=s1 + s[i]
              else
              begin
                   s2:=s1 + ' ' + s2;
                   s1:='';
              end;
         end;
     s2:=s1 + ' ' + s2;
    writeln('Cëîâà â îáðàòíîì ïîðÿäêå:');
    writeln(s2)
end.

@Tat'9na 0 / 0 / 0 Регистрация: 17.09.2011 Сообщений: 19
		1
	Расставить слова в обратном порядке 05.12.2011, 12:53. Показов 1907. Ответов 1 Метки нет (Все метки) Ввести строку. Расставить слова в обратном порядке. 0

	05.12.2011, 13:14

Расставить слова в обратном порядке

Решение