Удалить из текста заданную последовательность букв - Pascal ABC
Формулировка задачи:
Удалить из текста заданную последовательность букв, при этом строка сжимается.
Решение задачи: «Удалить из текста заданную последовательность букв»
textual
Листинг программы
pb:='abcd';//заданная последовательность букв while pos(pb,s)>0 do//пока она есть в строке delete(s,pos(pb,s),length(pb));//удаляем ее