Question

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

Answer 1

Var
b,i:integer;
S:string;
Begin
Readln(S);
b:=0;
For i:=1 to length(s) do 
if i<length(s) then begin
if (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.

Answer 2

Var
b,i,max,mz:integer;
max,mz можно не писать. Остались от прошлой программы

Answer 3

всё, поправил. Теперь писать всё

Answer 4

спасибо)