Письменно в тетради, используя пример рассмотренной Задачи, составьте программу, удаляющую из предложения букву Д.

Упражнение 1.

1) Рассмотрите Задачу.

В данном тексте заменить все слога “ма” на “па”.

program zadacha;

var S:string;

n,i:integer;

Begin

writeln('Введите текст');

readln(S);

n:=length(S);

for i:=1 to n-1 do

if copy(S,i,2)='ма' then

begin

delete(S,i,2); {удаляются 2 символа с позиции i }

insert('па',S,i); { вставляются символы «па» с позиции i}

end;

writeln('S=',S);

End.

2) Письменно в тетради, используя пример рассмотренной Задачи, составьте программу, удаляющую из предложения букву "Д".