Строка: Удалите лишние пробелы, оставив по одному - PascalABC.NET
Формулировка задачи:
Добрый день! Помогите, пожалуйста, решить задачку
В заданном тексте слова разделены более чем одним пробелом. Удалите лишние пробелы, оставив по одному
Решение задачи: «Строка: Удалите лишние пробелы, оставив по одному»
textual
Листинг программы
While Pos(' ',St)>0 then Delete(St,Pos(' ',St),1);
Объяснение кода листинга программы
В данном коде используется цикл while, который выполняется до тех пор, пока позиция первого пробела в строке St не станет равной нулю. В каждой итерации цикла происходит удаление всех пробелов начиная с позиции первого пробела и до следующего пробела (включительно). Таким образом, в результате выполнения данного кода из строки St удаляются все лишние пробелы, оставляя по одному пробелу между символами.