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

Question

Информатика

Дара

4 августа, 19:58

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

+5

Ответы (1)

Знаете ответ?

Кирюха · 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.