• Создайте программу которая проверяет правописание ча ща в строке и выводит на экран количество допущеных ошибок и исправленную строку

Ответы 3

  • program CrazyCoder;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; if (sc = 'Чя') or (sc = 'Щя') then begin s[i + 1] := 'a'; inc(k); end; end; if k = 0 then writeln('Ошибок не обнаружено') else begin writeln('Обнаружены ошибки в количестве ', k, '. Ошибки исправлены'); writeln(s); end;end.
    • Автор:

      taye
    • 6 лет назад
    • 0
  • огромное спасибо
    • Автор:

      beastacfj
    • 6 лет назад
    • 0
  • Пример вашей программы в прикрепленном файле
  • Добавить свой ответ

Войти через Google

или

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

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

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