Составить программу, которая проверяет правопис "жи", "ши" и выводит количество ошибок и исправленную строку

205

368

Посмотреть ответы 2

Ответы на вопрос:

айфон66666

Информатика

4,4(14 оценок)

Var a,count: longint; s: string; begin writeln('введите строку'); count: =0; read(s); while pos('жы',s)> 0 do begin inc(count); a: =pos('жы',s); delete(s,a,2); insert('жи',s,a) end; while pos('шы',s)> 0 do begin inc(count); a: =pos('шы',s); delete(s,a,2); insert('ши',s,a) end; writeln(s); writeln('всего ошибок: ',count) end.