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

@VL@ · Регистрация: 04.11.2012

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

Дана последовательность слов; между соседними словами – запятая, за последним словом – точка. Напечатать эту же последовательность слов, но в обратном порядке.

@CodeR · 13.12.2012, 14:31

Pascal

Var s,st,sv:string;
Begin
    write('Введите строку: ');readln(s);
    if s[Length(s)]='.' then  Delete(s,Length(s),1);
    s:=s+',';sv:='';
    While Pos(',',s)>0 do
    Begin
      st:=Copy(s,1,Pos(',',s)-1);
      Delete(s,1,Pos(',',s));
      sv:=st+','+sv;
    End;
    sv[Length(sv)]:='.';
    writeln('Полученная строка = ',sv);
    readln;
End.

@VL@ 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 20
		1
	Напечатать последовательность слов в обратном порядке 12.12.2012, 22:47. Показов 1574. Ответов 1 Метки нет (Все метки) Дана последовательность слов; между соседними словами – запятая, за последним словом – точка. Напечатать эту же последовательность слов, но в обратном порядке. 0

	13.12.2012, 14:31

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

Решение