Паскаль
Заполните пропуски в фрагменте программы, который заменяет несколько подряд идущих пробелов на один пробел.
p:=pos(' ',s);
while p... do
begin
delete(...);
insert(...);
p:=pos(...);
end;
Например, строка 'abc def gh' будет преобразована в строку 'abc def gh'
p:=pos(' ',s);
while p<>0 do
begin
delete(s, p, 2);
insert(' ',s,p);
p:=pos(' ',s);
end;
Пример: