Заменить в предложении все вхождения буквосочетания "да" на "нет" - Turbo Pascal

Формулировка задачи:

Дано предложение. Заменить в нем все вхождения буквосочетания "да" на "нет".

Код к задаче: «Заменить в предложении все вхождения буквосочетания "да" на "нет" - 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;

5   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ