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

1
Пример ввода макет,мак...букет бук

Ответы и объяснения

2013-12-05T11:10:36+00:00
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.