Определить, сколько раз буква встречается в тексте - PascalABC.NET

Формулировка задачи:

Составить программу для обработки данного текста. Определить какая буква о или входит в него чаще, и насколько?

Код к задаче: «Определить, сколько раз буква встречается в тексте - PascalABC.NET»

textual
uses System.IO;
const Letters = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
begin
  MillisecondsDelta;
  for var cic := 1 to 10 do begin
 
  writeln(&File.ReadAllText('roman.txt',Encoding.Default).ToCharArray().
  Select(c->UpperCase(c)).Where(c-> Letters.IndexOf(c) > -1).
  GroupBy(c->c).OrderByDescending(c->c.count).Select(x->Format('{0}-{1}',x.key,x.count())).First());
 
  end; WriteLn(MillisecondsDelta / 10000);
end.

11   голосов, оценка 3.818 из 5


СОХРАНИТЬ ССЫЛКУ