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

@Wefast · Регистрация: 14.10.2009

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

Добавлено через 19 минут
Все не надо

@demidrolll · 23.12.2009, 00:49

Pascal

uses
  crt;
var
  i: integer;
  st: string;
begin
  clrscr;
  write('Vvedite stroku: ');
  readln(st);
  i:=1;
  while st[1]=' ' do        {удаляем пробелы в начале}
    delete(st,1,1);
  while i<=length(st) do
  begin
    if st[i]=' ' then
      while (st[i+1]=' ') and (length(st)>=i) do   {удаляем лишние пробелы между словами и в конце}
        delete(st,i,1);
    inc(i);
  end;
  write(st);
  readkey;
end.

@Wefast 1 / 1 / 0 Регистрация: 14.10.2009 Сообщений: 37
		1
	Нужно удалить лишние пробелы в строке 23.12.2009, 00:32. Показов 4936. Ответов 1 Метки нет (Все метки) Дана строка, нужно оставить между словами по одному пробелу, а остальные удалить Добавлено через 19 минут Все не надо 0

Опции темы

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

Решение