Ответ:

Pascal

var

 s1:string = 'Дружба от недружбы близко живёт.';

 s2:string = 'Доброе дело два века живёт.';

 i, c :integer;

begin

 c:=0;

 for i:=1 to length(s1) do

   if s1[i]='ж' then

     inc(c);

 writeln(s1, '  В предложении букв "ж"=',c);

 i:=1;

 while i <= length(s2) do

   if s2[i]='е' then

     delete(s2, i, 1)

   else

     inc(i);

 writeln(s2);

end.