Заменить в предложении все вхождения буквосочетания "да" на "нет" - Turbo Pascal
Формулировка задачи:
Дано предложение. Заменить в нем все вхождения буквосочетания "да" на "нет".
Решение задачи: «Заменить в предложении все вхождения буквосочетания "да" на "нет"»
textual
Листинг программы
for i:=length(s)-1 downto 1 do if copy(s,i,2)='да' then begin delete(s,i,2); insert('нет',s,i) end;
Объяснение кода листинга программы
В данном коде используется цикл for, который проходит по каждому элементу строки s, начиная с последнего и до первого. Внутри цикла проверяется условие: если текущий элемент копируется в новую строку s с индексом i и имеет длину 2 и равен да
, то этот элемент удаляется из исходной строки s с индексом i, а затем вставляется новый элемент нет
на тот же индекс.