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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.