Предмет: Информатика,
автор: bry4aeva
Написать программу,которая считает в строке все символы A и изменяет на символ B
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Математика,
автор: dilukaktavi
Предмет: Русский язык,
автор: Аноним
Предмет: История,
автор: 5830380
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: Виктория14042004