Есть ответ 👍

Составить алгоритм вычисления значения функции

231
434
Посмотреть ответы 1

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

Stafia
4,7(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.

Популярно: Информатика