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

@Ви5Кторинка · Регистрация: 19.01.2012

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

Дан текст. Преобразовать его следующим образом: удалить группы пробелов, которыми начинается и заканчивается последовательность, а также заменить каждую внутреннюю группу пробелов одним пробелом. Если указанных групп нет в данном тексте, то оставить его без изменений.

@КонецСвета · 13.02.2012, 21:00

Pascal

uses crt;
var s: string;
    i: integer;
begin
write('s=');
readln(s);
i:=1;
while s[i]=' ' do
      delete(s,1,1);
i:=length(s);
while s[i]=' ' do
      begin
      delete(s,length(s),1);
      i:=length(s);
      end;
for i:=1 to length(s)-1 do
    if (s[i]=' ') and (s[i+1]=' ') then
       begin
       delete(s,i+1,1);
       dec(i);
       end;
write('s=',s);
end.

@Ви5Кторинка 1 / 1 / 0 Регистрация: 19.01.2012 Сообщений: 23
		1
	Удалить группы пробелов, которыми начинается и заканчивается последовательность 13.02.2012, 18:52. Показов 1499. Ответов 1 Метки нет (Все метки) Дан текст. Преобразовать его следующим образом: удалить группы пробелов, которыми начинается и заканчивается последовательность, а также заменить каждую внутреннюю группу пробелов одним пробелом. Если указанных групп нет в данном тексте, то оставить его без изменений. 0

	13.02.2012, 21:00

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

Решение