Паскаль:
1) дана строка символов, в которой есть хотя бы вхождение abc. Все вхождения abc заменить на def

2) в заданном тексте все встретившееся буквы a удалить, а буквы d удвоить

1. var s:string;
i:integer;
begin
readln(s);
for i:=1 to length (s)-3 do
if (s[i]=a) and (s[i+1]=b) and (s[i+2]=c) then begin
 s[i]:=d;
 s[i+1]:=e;
 s[i+2]:=f;
 end;
writeln (s);
readln;
end.



2. var s:string;
i:integer;
begin
readln(s);
for i:=1 to length (s) do
if s[i]=a then s[i]:=d;
writeln (s);
readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.