Создайте программу которая проверяет правописание ча ща в строке и выводит ** экран...

Question

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

Answer 1

Пример вашей программы в прикрепленном файле

Comments

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.

---

огромное спасибо