Ответы
Ответ дал:
0
var s:string;
begin
read(s);
while pos('ба',s)>0 do
delete(s,pos('ба',s),2);
write(s)
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад