Ответы на вопрос:
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.
Популярно: Информатика
-
kotik53Tv17.06.2020 16:45
-
Lala09013.11.2022 09:16
-
Anuraoaoap26.02.2023 06:21
-
Шмигельська11.02.2023 23:49
-
Георгий0718.07.2021 20:51
-
Владислав1535122.02.2021 00:23
-
оксана15098609.05.2023 14:37
-
GAMAEW6625.01.2023 09:51
-
borik777725.08.2021 03:58
-
kosinets10.02.2023 10:46