Удалить лишние пробелы

@UnFam0uS · Регистрация: 26.09.2009

1)Дана строка-предложение, содержащая избыточные пробелы. Преобразовать ее так, чтобы между словами был ровно один пробел.

2)Заданный одномерный массив отсортировать по возрастанию цифры десятков каждого элемента. Сортировка включением.

@Awful · 10.11.2009, 14:32

1)

Pascal

i:=2;
while i<=length(s) do
(If s[i]=' ') and (s[i-1]=' ') then
delete(s,i,1);
else
inc[i]
end;

@Puporev · 10.11.2009, 15:17

Сообщение от UnFam0uS

1)Дана строка-предложение, содержащая избыточные пробелы. Преобразовать ее так, чтобы между словами был ровно один пробел.

Pascal

1 2	while pos('_ _',s)>0 do ('_ _' это 2 пробела) delete(s,pos('_ _',s),1);

@UnFam0uS 4 / 4 / 0 Регистрация: 26.09.2009 Сообщений: 45
		1
	Удалить лишние пробелы 10.11.2009, 14:16. Показов 2058. Ответов 2 Метки нет (Все метки) 1)Дана строка-предложение, содержащая избыточные пробелы. Преобразовать ее так, чтобы между словами был ровно один пробел. 2)Заданный одномерный массив отсортировать по возрастанию цифры десятков каждого элемента. Сортировка включением. 0

Опции темы

Удалить лишние пробелы

Решение