Какие то программу, которая считает в строке все символы А и заменяет их на символ В

В паскале

Question

Лукиана

6 февраля, 16:23

+5

Ответы (1)

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

Нимфа · Answer 1

Var a:string; i, d:integer;

Begin

Readln (a) ;

d:=length (a) ;

For i:=1 to d do

If a[i]='A' then a[i]:='B';

Writeln (a) ;

end.

Какие то программу, которая считает в строке все символы А и заменяет их на символ ВВ паскале