В тексте, содержащем между словами от 1 до 3 пробелов, оставить только по одному - Free Pascal
Формулировка задачи:
В тексте, содержащем между словами от 1 до 3 пробелов, оставить только по одному.
Решение задачи: «В тексте, содержащем между словами от 1 до 3 пробелов, оставить только по одному»
textual
Листинг программы
var i: byte; str: string; begin write('Строка: '); readln(str); for i:=1 to length(str) do if (str[i] = ' ') and (str[i+1] = ' ') then begin delete(str,i+1,1); dec(i); end; writeln(str); end.
Объяснение кода листинга программы
- Объявлены две переменные: i типа byte и str типа string.
- Вводится строка с помощью функции readln().
- Происходит цикл по всем символам строки.
- Если текущий символ равен пробелу и следующий за ним символ также равен пробелу, то удаляется третий пробел с помощью функции delete().
- Цикл прерывается, если в строке больше нет пробелов.
- Выводится измененная строка с помощью функции writeln().
- Код выполняется без ошибок и выводит ожидаемый результат.