• Paskal.
     Дана строка. Проверить правильность написания слов с ЖИ-ШИ. Если слово написано неправильно, то исправить его.

Ответы 1

  • uses crt; var s,sc:string; i,k: integer; begin write('s='); readln(s); for i:=1 to length(s)-1 do     begin     sc:=copy(s,i,2);     if (sc='жы') or (sc='шы') then        begin        s[i+1]:='и';        inc(k);        end;     end; if k=0 then writeln('Ошибок не обнаружено') else begin writeln('Обнаружены ошибки в количестве ',k,'. Ошибки исправлены: '); writeln(s); end; readkey end.
    • Автор:

      elian
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years