Какие то программу,которая считает в строке все символы А и заменяет их ** символ В В...

Question

Какие то программу,которая считает в строке все символы А и заменяет их на символ В
В паскале

Comments

Написать*

---

Подсчитывает

Answer 1

Var a:string; i,d:integer;
Begin
Readln (a);
d:=length (a);
For i:=1 to d do
If a[i]='A' then a[i]:='B';
Writeln (a);
end.