Question

Пожалуйста срочно нужно!!!!.
50 баллов


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

Answer 1

===== 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.