Pascal

[FrenchGS]

помогите пожалуйста решить или разобраться с задачами:

1.Составьте программу заменяющую в слове x слог ''ба'' слогом ''аб''
2. Составьте программу, генерирующую слово y, состоящее из тех букв, что встречаются при написании слова x ровно два раза.

[rubius2008]

Сообщение от FrenchGS

помогите пожалуйста решить или разобраться с задачами:

1.Составьте программу заменяющую в слове x слог ''ба'' слогом ''аб''
2. Составьте программу, генерирующую слово y, состоящее из тех букв, что встречаются при написании слова x ровно два раза.

Могу решить быстро, но не бесплатно (ася 600-927-970). Разобраться - бесплатно, но по мере возможности и ваши наработки должны быть, чтоб было с чем разбираться

[Mad_Cat]

Составьте программу заменяющую в слове x слог ''ба'' слогом ''аб''

while pos('ба',x)<>0 do
begin
k:=pos('ба',x);
delete(x,k,2);
insert('аб',x,k);
end;