Question

Дана строка. Замените в этой строке все появления буквы h на букву H, кроме первого и последнего вхождения.

Answer 1

===== PascalABC.NET =====

begin

 var s := ReadlnString;

 var (p1, p2) := (s.IndexOf('h'), s.LastIndexOf('h'));

 for var i := p1 + 1 to p2 - 1 do

   if s[i] = 'h' then

     s[i] := 'H';

 Println(s)

end.