В тексте, содержащем между словами от 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.

Объяснение кода листинга программы

  1. Объявлены две переменные: i типа byte и str типа string.
  2. Вводится строка с помощью функции readln().
  3. Происходит цикл по всем символам строки.
  4. Если текущий символ равен пробелу и следующий за ним символ также равен пробелу, то удаляется третий пробел с помощью функции delete().
  5. Цикл прерывается, если в строке больше нет пробелов.
  6. Выводится измененная строка с помощью функции writeln().
  7. Код выполняется без ошибок и выводит ожидаемый результат.

Оцени полезность:

12   голосов , оценка 4.333 из 5
Похожие ответы