Предмет: Информатика,
автор: studyKate
В строке символов заменить все буквы "А" на "Б".
(решить с помощью составления новой строки)
Ответы
Автор ответа:
0
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.
Пример
Введите строку: АБРАКАДАБРА
Результат: ББРБКБДББРБ
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.
Пример
Введите строку: АБРАКАДАБРА
Результат: ББРБКБДББРБ
Похожие вопросы
Предмет: Другие предметы,
автор: anastasiazubovic4
Предмет: Математика,
автор: Pomoshnik201
Предмет: Английский язык,
автор: kanatbergenkyzybegim
Предмет: Математика,
автор: vergena1980