Question

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

Answer 1

Ответ:

p:=pos('  ',s);

while p<>0 do

begin

delete(s, p, 2);

insert(' ',s,p);

p:=pos('  ',s);

end;

Пример:

Answer 2

Вот исправленный фрагмент программы на языке Паскаль для замены нескольких подряд идущих пробелов на один пробел:

pascalCopy code
p := pos('  ', s);  // Ищем два пробела подряд
while p > 0 do
begin
  delete(s, p + 1, 1);  // Удаляем один из двух пробелов
  p := pos('  ', s);  // Ищем следующие два пробела
end;

В этом фрагменте программы используется функция pos, которая ищет первое вхождение подстроки в строке s. Затем в цикле while мы находим все пары пробелов и заменяем один из них на одиночный пробел, пока все подряд идущие пробелы не будут удалены.