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

Question

Информатика

Наташа

28 августа, 20:08

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

+3

Ответы (1)

Знаете ответ на вопрос?

Конон · Answer 1

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.