Дана строка-предложение, содержащая избыточные пробелы. Преобразовать ее так, чтобы между словами был ровно один пробел.

@Шарик · Регистрация: 14.12.2011

@КонецСвета · 14.12.2011, 17:52

Pascal

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

@Шарик · 14.12.2011, 23:33 **[ТС]**

спасибо огромное!!!!

@Шарик 1 / 0 / 0 Регистрация: 14.12.2011 Сообщений: 8
		1
	Дана строка-предложение, содержащая избыточные пробелы. Преобразовать ее так, чтобы между словами был ровно один пробел. 14.12.2011, 17:31. Просмотров 5817. Ответов 2 Метки нет (Все метки) Дана строка-предложение, содержащая избыточные пробелы. Преобразовать ее так, чтобы между словами был ровно один пробел. 0

@Шарик 1 / 0 / 0 Регистрация: 14.12.2011 Сообщений: 8
	14.12.2011, 23:33 [ТС]	3
	спасибо огромное!!!! 0

Опции темы

Дана строка-предложение, содержащая избыточные пробелы. Преобразовать ее так, чтобы между словами был ровно один пробел.

Решение