Множества... сравнение алфавитов

[Верчик]

Каких букв в слове больше: русских или английских

[Jeni]

Пожалуй, в русских словах больше русских букв. А английских букв так и вообще в природе нет, хотя, говорят, там иногда встречаются латинские символы!

Ладно, это "к слову". Что сделать нужно - узнать сколько каких символов с помощью множеств или что-то другое?

[pu4koff]

eng := 0; rus := 0;
for i := 1 to length(s) do
begin
  if (s[i] in ['A'..'Z','a'..'z'])then inc(eng)
  else if (s[i] in ['А'..'Я','а'..'я']) then inc(rus);
end;
if (eng > rus) then ShowMessage('Латиница сцуко впереди')
else if (eng = rus) then ShowMessage('Ничья нах')
else ShowMessage('Русский алфАвит жжот ни па децки');

[Alex21]

to pu4koff
>> 'Латиница сцуко впереди'
>> 'Ничья нах'
>> 'Русский алфАвит жжот ни па децки'

+1024

Тока считаю Наших надо вверх, а буржуев в else их место в там.

[pu4koff]

Сообщение от Alex21

to pu4koff
+1024

Тока считаю Наших надо вверх, а буржуев в else их место в там.

Да... тут я чет с приоритетами накосячил... в if же надо наиболее вероятный случай...

[Carbon]

pu4koff. Респект!!!

Прочитал прогу - упал под стол. Хотел подняться - не смог.

[InternetStranger]

У мня прикол с этими множествами вышел как-то.
прога упорна насчитывала в текстовом файле подозрительно больше русских символов, чем их там было.
Всё дело оказалось в АСКИЙ-коде - руские символы там только эти:
['А'..'п' , 'р'..'ё']