Написать программу,которая считает в строке все символы A и изменяет на символ B

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

Написать программу,которая считает в строке все символы A и изменяет на символ B

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

Var

   S:string;

   i:integer;

   A,B:char;

Begin

Write(‘Введите текст: ‘);

ReadLn(S);

Write(‘A = ‘);ReadLn(A);

Write(‘B = ‘);ReadLn(B);

For i:= 1 to Length(S) do

    if S[i] = A then S[i]:=B;

WriteLn(S)

End.