В строке символов заменить все буквы "А" ** "Б".(решить с помощью составления новой...

Question

В строке символов заменить все буквы "А" на "Б".
(решить с помощью составления новой строки)

Answer 1

Var
  s1,s2:string;
  i:integer;
begin
  Write('Введите строку: '); Readln(s1);
  s2:='';
  for i:=1 to Length(s1) do
    if s1[i]='А' then s2:=s2+'Б'
    else s2:=s2+s1[i];
  Writeln('Результат: ',s2)
end.

Пример
Введите строку: АБРАКАДАБРА
Результат: ББРБКБДББРБ