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

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

Author24 — интернет-сервис помощи студентам

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

@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. Показов 1634. Ответов 1 Метки нет (Все метки) Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между словами. 0

	13.03.2013, 13:06

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

Решение