Дано предложение. Заменить в нём все слоги "ах" на "ух".

Дано предложение. Заменить в нём все слоги "ах" на "ух".
Гость
Ответ(ы) на вопрос:
Гость
P.S программа работает для русских символов. Если нужны латинские, то поменяйте все "а","у" и "х" на соответствующие  program n1;  uses crt; var      st:string;      i:integer; begin writeln('Введите строку'); readln(st); for i:=1 to length(st) do     if (st[i]='а') and (st[i+1]='х') then st[i]:='у'; writeln(st); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы