profile
Опубликовано 5 лет назад по предмету Информатика от zhanik00

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

  1. Ответ
    Ответ дан ЧерныйГолубь
    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.
Самые новые вопросы