Ответы на вопрос:
Var s: string; i: integer; begin readln(s); for i: =1 to length(s)-1 do if s[i]+s[i+1]='му' then begin delete(s,i,2); insert('ло',s,i); end; writeln(s); end.
Популярно: Информатика
-
МОЗГ198723.08.2022 13:00
-
Shizuka49422.07.2022 11:40
-
Bezzybka19.06.2022 23:34
-
Вика555200215.10.2020 11:10
-
alkhodzhaevaka16.08.2022 10:57
-
evaklchn09.06.2020 18:01
-
Enotlk133731.05.2020 05:31
-
1230a16.10.2020 17:45
-
soykaalayaovpiyg25.01.2020 13:20
-
timca201415.10.2020 06:25