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

@Spellbane · Регистрация: 29.05.2013

Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между словами.

Kodzaev · 03.06.2013, 09:47

Pascal

Var
  s: String;
BEGIN
Writeln('Введите предложение: ');
Readln(s);
While s[1]=' ' do   {удаляем начальные пробелы}
Delete(s,1,1);
While Pos('  ',s)>0 do  {удаляем лишние между словами}
Delete(s,Pos('  ',s),1);
While s[Length(s)]=' ' do {удаляем конечные пробелы}
Delete(s,Length(s),1);
Writeln('Полученная строка:');
Writeln(s);
END.

@Spellbane 0 / 0 / 0 Регистрация: 29.05.2013 Сообщений: 32
		1
	Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между словами 03.06.2013, 09:44. Показов 4365. Ответов 1 Метки нет (Все метки) Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между словами. 0

Опции темы

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

Решение