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.
файл с решением прикреплён.
Поделитесь своими знаниями, ответьте на вопрос: