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

В паскале

Question

Вильгельм

12 февраля, 10:21

+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.

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