Question

Составить программу,которая во введенном слове подсчитывала бы число букв <а> и заменяла их буквами б

Answer 1

Var S : String;
    n : Byte;
Begin
  Readln(S);
  While Pos('а',S)>0 do
  Begin
    Inc(n);
    S[Pos('а',S)]:='б';
  end;
  Writeln(S,'  всего замен: ',n);
end.