Задача на цикл с символами

[mimit]

Пользователь вводит произвольные символы. Определить есть ли среди символов, введенных до символа с кодом 51, русские буквы
Вот задача нужно решить ее с помощью цикла while и repeat у меня не получается с символами если кому не сложно можете решение написать или объяснить как делать

[Abstraction]

Ограничение "с помощью цикла while" тут ни к селу, ни к городу. Но...

bool IsRussianLetter(char c){
  const char* russians = "АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеё...эюя";
  int i=0;
  while(i<66) if(russians[i]==c) return true; else ++i;
  return false;
}

[Helloween]

Почему бы и нет?

bool isRus(char c)
{
 //цикл while
 int i = 0;
 while(i < 10)
 {
   c = c; i++;
 }
 //проверка
 if(c >= 'А'&& c <= 'я')
    return true;
 return false;
}

[Abstraction]

KOI-8 и ряд других кодировок располагают символы кириллицы не непрерывным блоком, к сожалению. Поэтому такой фокус чреват.

[Helloween]

в С ansi кодировка используется.

[Abstraction]

Стандарт оговаривает кодировку для символов кириллицы? Я там такого не помню, по крайней мере.

[Serge_Bliznykov]

согласен с решение Abstraction из пост #2

только, имхо, while здесь подразумевался для цикла, пока не ввели символ с кодом 51

Только с чего все решили, что TC нужен код на языке C ? я чего-то проглядел?...

[Abstraction]

По-моему, "язык не указан" = "язык на усмотрение отвечающего".

[mimit]

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

Ограничение "с помощью цикла while" тут ни к селу, ни к городу. Но...

bool IsRussianLetter(char c){
  const char* russians = "АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеё...эюя";
  int i=0;
  while(i<66) if(russians[i]==c) return true; else ++i;
  return false;
}

writeln('Введите символы');
  a:=128;
  b:=241;
 //цикл while
  while ord(s)<>51 do
  begin
    readln(s);
    if (a<=ord(s)) and (ord(s)<=b)
      then
        t:=true;
  end;
  if t
    then
      writeln('Есть')
    else
      writeln('нет');   
  //Цикл Repeat
  repeat
    readln(s);
    if (a<=ord(s)) and (ord(s)<=b)
      then
        t:=true;
  until ord(s)=51;
  if t
    then
      writeln('есть')
    else
      writeln('нет');
  readln;
end.

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