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

@lexilexustkn · Регистрация: 06.03.2013

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

@CodeR · 13.03.2013, 13:06

Pascal

Var s:string;
    i:byte;
Begin
    write('Введите строку: ');readln(s);
    For i:=Length(s) downto 2 do
     if (s[i]=' ')and(s[i-1]=' ') then Delete(s,i,1);
    writeln('Полученная строка: ',s);
    readln;
End.

@lexilexustkn 0 / 0 / 0 Регистрация: 06.03.2013 Сообщений: 39
		1
	Отредактировать предложение, удаляя из него лишние пробелы 13.03.2013, 10:09. Просмотров 1129. Ответов 1 Метки нет (Все метки) Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между словами. 0

Опции темы

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

Решение