Var s: string;

k, i: integer;

begin

readln(s);

k := 0;

for i := 1 to length(s) do

if s[i] = 'a' then

begin

s[i] := 'b';

k := k + 1;

end

else if s[i] = 'A' then

begin

s[i] := 'B';

k := k + 1;

end;

writeln(s);

writeln(k);

end.
даю все

tyty55    3   26.05.2021 15:40    0