В заданной строке заменить подряд идущие пробелы на один пробел - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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