Предмет: Информатика,
автор: zhanik00
Дано предложение. Заменить в нём все слоги "ах" на "ух".
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Алгебра,
автор: 0o0stupid
Предмет: Қазақ тiлi,
автор: Fanlop
Предмет: Литература,
автор: alexagovzicth
Предмет: Физика,
автор: BlackFox021
Предмет: Биология,
автор: Lenzatovaj