Question

сделать программу
очень срочно!!!!!

Answer 1

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку:');
  var c:=s.GroupBy(t->t.ToLower).Select(t->(t.Key,t.Count))
      .Where(t->t[0]<>' ').MaxBy(t->t[1]);
  Writeln('Количество повторов символа "',c[0],'" равно ',c[1])
end.

Пример
Введите строку: Карл у Клары украл кораллы, Клара у Карла украла кларнет.
Количество повторов символа "а" равно 11