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

Question

Информатика

Савва

1 ноября, 09:52

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

+4

Ответы (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.