В тексте убрать лишние пробелы между словами

@SADDAM · Регистрация: 15.02.2012

Помогите пожалуйста решить задачу.

В тексте убрать лишние пробелы между словами .

@Ev[G]eN · 15.02.2012, 00:35

Pascal

var
 st: string;
begin
 writeln('Введите строку: ');
 readln(st);
  while pos('  '{2 пробела}, st) <> 0 do
   delete(st, pos('  ', st), 1);
 writeln('Строка без лишних пробелов: ');
 write(st);
end.

@SADDAM 0 / 0 / 0 Регистрация: 15.02.2012 Сообщений: 5
		1
	В тексте убрать лишние пробелы между словами 15.02.2012, 00:28. Показов 1376. Ответов 1 Метки нет (Все метки) Помогите пожалуйста решить задачу. В тексте убрать лишние пробелы между словами . __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

В тексте убрать лишние пробелы между словами

Решение