Pascal.найти количество русских букв

[Мaрина]

Найти количество русских букв в заданной строке символов

[Jaguar83]

для кодировки 866 MS-DOS

   count:=0;
   for i:=1 to Length(str) do
   begin
     if (Ord(str[i]) in [128..175, 224..239]) then
       Inc(count)
   end;

для кодировки 1251 Windows

   count:=0;
   for i:=1 to Length(str) do
   begin
     if (Ord(str[i]) in [192..255]) then
       Inc(count)
   end;

[Alex11223]

Проблема в чем, что не получается?

for i:=1 to length(str) do
   if (str[i] in ['a'..'я']) or (str[i] in ['А'..'Я']) then c:=c+1;

Остальное сами напишите надеюсь?)

[Sasha_Smirnov]

ё забыли!!

[Utkin]

Ну тогда пофиксить:

for i:=1 to length(str) do
   if (((str[i] in ['a'..'я']) or (str[i] in ['А'..'Я'])) or str[i]='ё') or (str[i]='Ё') then c:=c+1;

[Serge_Bliznykov]

если речь идёт о Обычном TurboPascal (т.е. о DOS программе, то кодировка 866), и тогда правильное решение дал Jaguar83 - в пост #2

добавить букву Ёё можно так:

   count:=0;
   for i:=1 to Length(str) do
   begin
     if (Ord(str[i]) in [128..175, 224..241]) then
       Inc(count)
   end;

или, можно записать этот же вариант так (с точки зрения компьютера будет тоже самое, но просто нагляднее:

   count:=0;
   for i:=1 to Length(str) do
   begin
     if str[i] in ['А'..'п', 'р'..'я','Ё','ё'] then
       Inc(count)
   end;

p.s. сомневающимся рекомендую посмотреть ASCII таблицу...