Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Составьте программу, позволяющую проверить правописание "жи" и "ши" в строке s. Выведите на экран количество допущенных ошибок и исправленную строку.

Ответ оставил Гость

Var
b,i:integer;
S:string;
Begin
Readln(S);
b:=0;
For i:=1 to length(s) do 
if iif (s[i]=ж) or (s[i]=ш) then if s[i+1]=ы then begin s[i+1]:=и; b:=b+1; end;

End;
Writeln(b);
Writeln(s);
End.