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

@Amely312 · Регистрация: 07.10.2012

@КонецСвета · 22.12.2012, 22:10

Pascal

uses crt;
var s: string;
    i: byte;
    
begin
write('s='); readln(s);
for i:=length(s)-1 downto 1 do
    if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1);
write('s=',s);
readln;
end.

@Amely312 2 / 2 / 0 Регистрация: 07.10.2012 Сообщений: 89
		1
	Удалить из строки лишние пробелы, оставляя между словами только по одному пробелу 22.12.2012, 18:25. Просмотров 2223. Ответов 1 Метки нет (Все метки) Удалить из строки лишние пробелы, оставляя между словами только по одному пробелу 1

Опции темы

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

Решение