помогите срочно нужно составить программу, которая после буквы B ставит A... 10 класс, можно использовать что-то типо string или longint

1

Ответы и объяснения

Лучший Ответ!
2011-12-19T07:55:46+04:00

var

s,res:string;

i:integer;

begin

readln(s);

res:='';

for i:=1 to length(s) do

if s[i]='B' then res:=res+s[i]+'A'

else res:=res+s[i];

writeln(res);

end.