ЕГЭ 2023 №24

Регулярные выражения, словари, Питон, PascalAbc ### reset(input,''); var s:=rs; var a:=('X.P').ToA; println(); var d:=new Dictionary (char,integer) ; // () заменить на угловые print(); foreach var i in a do if [2] not in d then d[[2]]:=1 else d[[2]] =1; print(d); print()