Вывести строку, содержащую слова (разделенные одним пробелом), расположенные в обратном порядке

@Driiim · Регистрация: 25.01.2013

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

Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в обратном порядке.

Комментарий модератора

Правила форума п. 5.5: Запрещено размещать тему в нескольких разделах одновременно (кросспостинг), а также дублировать тему в одном разделе.

@Taftis · 26.01.2013, 16:22

Pascal

Program  stroki;
Uses Crt;
Var Text: String;  
i: Integer; 
Letter: Char;    
BEGIN
ClrScr;
WriteLn('Введите текст :');
ReadLn(Text);
For i := 1 to Length(Text) do 
begin
Letter:= Text[i];      
If (Letter <> ' ')
then  Letter:=' ';
end;
END.

Добавлено через 4 минуты
уже была на форуме

@Driiim · 29.01.2013, 19:52 **[ТС]**

ничего не выдает

@TEKJ · 01.03.2013, 01:11

Pascal

Program stroka;
var st,st1,sl:string;
    i:integer;
begin
readln(st);
 
for i:=1 to length(st) do
 if st[1]=' ' then delete(st,1,1);
 
while length(st)>0 do begin
sl:='';
for i:=1 to length(st) do
 if st[i]<>' ' then sl:=sl+st[i] else break;
  if sl<>' ' then st1:=sl+' '+st1;
  delete(st,1,length(sl)+1);
end;
  writeln(st1);
end.

@TitovAndrey · 21.01.2015, 22:26

Оставляет изначальное количество пробелов, а нужно чтоб все слова разделялись одним пробелом

@Driiim 0 / 0 / 0 Регистрация: 25.01.2013 Сообщений: 119
	29.01.2013, 19:52 [ТС]	3
	ничего не выдает 0

@TitovAndrey 0 / 0 / 0 Регистрация: 28.12.2014 Сообщений: 2
	21.01.2015, 22:26	5
	Оставляет изначальное количество пробелов, а нужно чтоб все слова разделялись одним пробелом 0