Заменить в предложении все вхождения буквосочетания "да" на "нет" - 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, а затем вставляется новый элемент нет на тот же индекс.

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

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