Функции и процедуры. При помощи процедуры записать слова задом наперед

@SAM · Регистрация: 10.04.2012

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

Дана строка S, состоящая из не менее 5 слов. При помощи процедуры записать слова задом наперед. Порядок слов сохранить.

Помогите,пожалуйста

@Krot-buterbrod · 20.05.2012, 12:16

Pascal

procedure p(st: string);
var s: string;
   i: integer;
begin
   st:=st+' ';
   repeat
      for i:=pos(' ',st)-1 downto 1 do
         s:=s+st[i];
      delete(st,1,pos(' ',st));
      s:=s+' ';
   until st='';
   writeln(s);
end;
var st: string;
begin
   readln(st);
   p(st);;
end.

@SAM 0 / 0 / 0 Регистрация: 10.04.2012 Сообщений: 7
		1
	Функции и процедуры. При помощи процедуры записать слова задом наперед 20.05.2012, 11:27. Показов 2189. Ответов 1 Метки нет (Все метки) Дана строка S, состоящая из не менее 5 слов. При помощи процедуры записать слова задом наперед. Порядок слов сохранить. Помогите,пожалуйста 0

Опции темы

Функции и процедуры. При помощи процедуры записать слова задом наперед

Решение