Регистрация
magamusaev201
30.09.2020 14:59
Информатика
Есть ответ 👍

решить, задание на скриншоте.

269
475
Посмотреть ответы 1

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

kolya144
kolya144
4,5(70 оценок)
Procedure ghishi(var s : string; var n : byte); var i : byte; begin   n: =0;   for i: =1 to length(s)-1 do       if (s[i] in ['ж','ш']) and (s[i+1]='ы') then       begin           s[i+1]: ='и';           inc(n);       end; end; var st : string; k : byte; begin   { readln(st); }  st: ='"жы" и "шы" пишы через "и"';   ghishi(st,k);   writeln(st);   writeln('количество ошибок: ',k); end.

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