Составьте программу,которая заменяет в строке s слоги "ма" на слоги "бу"

Question

Составьте программу,которая заменяет в строке s слоги "ма" на слоги "бу"

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var n:string; t:integer; begin writeln ('Введите строку'); readln(n); if pos('ма',n)<>0 then begin t:=pos('ма',n); delete(n,t,2); insert('ва',n,t); writeln(n) end else writeln('Такой слог в строке не найден') end.