profile
Опубликовано 6 лет назад по предмету Информатика от Paravoz1999

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

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

Самые новые вопросы