Begin var s := readstring(); if (s.Where(x -> x = 'а').Count > s.Where(x -> x = 'о').Count) then write('Букв "а" больше') else write('Букв "о" больше'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
