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