В заданной строке заменить подряд идущие пробелы на один пробел - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
