50

составьте программу которая определяет каких букв больше латинских или

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

begin

 var lat := ['A'..'Z'];

 var cyr := ['А'..'Я', 'Ё'];

 var s := ReadlnString('Вводите:').ToUpper;

 var d := s.Count(c -> c in cyr) - s.Count(c -> c in lat);

 if d > 0 then

   Print('Кириллицы больше')

 else if d < 0 then

   Print('Латиницы больше')

 else

   Print('Поровну...')

end.