ЕГЭ по информатике 2023 №24
Регулярные выражения, словари, Питон, PascalAbc ### reset(input,'1.txt'); var s:=rs; var a:=s.Matches('X.P').ToA; println(a.Count); var d:=new Dictionary (char,integer) ; // () заменить на угловые print(d.Count); foreach var i in a do if i.ToS[2] not in d then d[i.ToS[2]]:=1 else d[i.ToS[2]]+=1; print(d); print(d.Values.max)
Регулярные выражения, словари, Питон, PascalAbc ### reset(input,'1.txt'); var s:=rs; var a:=s.Matches('X.P').ToA; println(a.Count); var d:=new Dictionary (char,integer) ; // () заменить на угловые print(d.Count); foreach var i in a do if i.ToS[2] not in d then d[i.ToS[2]]:=1 else d[i.ToS[2]]+=1; print(d); print(d.Values.max)