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

@ffhhhvv119 · Регистрация: 22.05.2019

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

Реализовать задачу через подпрограмму.

@Puporev · 18.06.2019, 16:28

Pascal

procedure revers(s:string);
var s1:string;
    i,j:integer;
begin
s:=s+' ';
i:=length(s)-1;
while i>1 do
if(s[i]<>' ')and(s[i+1]=' ') then
 begin
  s1:='';
  j:=i;
  while(j>=1)and(s[j]<>' ') do
   begin
    s1:=s[j]+s1;
    j:=j-1;
   end;
  write(s1,' ');
  i:=i-length(s1);
 end
else i:=i-1;
end;
var s:string;
begin
writeln('Введите строку из русских слов, разделенных пробелами(одним или несколькими)');
readln(s);
revers(s)
end.

@ffhhhvv119 · 18.06.2019, 19:49 **[ТС]**

Огромное спасибо)

@ffhhhvv119 0 / 0 / 0 Регистрация: 22.05.2019 Сообщений: 8
		1
	Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими) 18.06.2019, 15:51. Показов 6386. Ответов 2 Метки нет (Все метки) Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, но разделенные одним пробелом и в обратном порядке. Реализовать задачу через подпрограмму. 0

@ffhhhvv119 0 / 0 / 0 Регистрация: 22.05.2019 Сообщений: 8
	18.06.2019, 19:49 [ТС]	3
	Огромное спасибо) 0

Опции темы

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

Решение