Question

Напишите программу, которая определяет каких знаков препинания в тексте больше: ".",. ",", ";".
(На Паскаль)

Answer 1

===== PascalABC.NET =====

begin

 var D := Dict(('.',0),(',',0),(';',0));

 var s := ReadlnString.Where(p -> p in ['.', ',', ';']);

 foreach var c in s do

   D[c] += 1;

 var a := D.OrderByDescending(p -> p.Value).ToArray;

 if a[0].Value > a[1].Value then

   Write('Разделителей "', a[0].Key, '" больше')

 else if a[1].Value > a[2].Value then

   Write('Разделителей "', a[0].Key, '" и "',

         a[1].Key, '" больше')

 else

   Write('Разделителей ".", ",", и ";" поровну')

end.