Question

Составьте программу ,которая опеделяет ,какая из букв 'и' или 'ы' встречается чаще в введенной с клавиатуры строке .

Answer 1

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.