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

Question

Информатика

Сергуня

26 мая, 19:02

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

+5

Ответы (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.