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

@poni009 · Регистрация: 06.12.2013

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

@j7777777 · 06.12.2013, 14:30

Pascal

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

@poni009 0 / 0 / 0 Регистрация: 06.12.2013 Сообщений: 20
		1
	Дана строка-предложение, содержащая избыточные пробелы. Преобразовать ее так, чтобы между словами был ровно один пробел 06.12.2013, 13:29. Показов 1981. Ответов 1 Метки нет (Все метки) Дана строка-предложение, содержащая избыточные пробелы. Преобразовать ее так, чтобы между словами был ровно один пробел. 0

	06.12.2013, 14:30

Опции темы

Решение