В заданной строке заменить подряд идущие пробелы на один пробел - Pascal ABC
Формулировка задачи:
Написать программу: В заданной строке заменить подряд идущие пробелы на один пробел
Решение задачи: «В заданной строке заменить подряд идущие пробелы на один пробел»
textual
Листинг программы
var str : string; p: integer; begin Write('vvod stroki'); readln(str); repeat P := Pos(' ', str); Delete(str, p, 1) until p =0; writeln(str); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д