оператор Case, пример использования case Опции

[nikon]

начал pascal c нуля. все вроде нормально но есть некоторые "воросы"..
в переменную типа char вводится символ с клавиатуры.
прога должна выдать:

цифра от 0 до 9 ;
латинская строчная буква ;
латинская прописная буква ;

Код

program zad5_11;
  uses crt;
var
  x:char;

begin
    clrscr;
    writeln('введите символ');
    readln(x);
    case x of

     '0'..'9':writeln('цифра от 0 до 9');
    'a'..'z': writeln('латинская строчная буква');
    'A'..'Z': writeln('латинская прописная буква')
    else writeln('ошибка ввода ')
    end;
   readln
end.

загвоздка в том что под условие '0'..'9' - подпадает и 1 и 11 и 111 т. к. char понимает только первый символ

вот если написать '2'..'9' то 1 уже не попадает в интервал..
можно использовать таблицу ASCII и написать перевести 0 в chr(48) но и с этим тоже не получается

[volvo]

в переменную типа char вводится символ с клавиатуры.
...
загвоздка в том что под условие '0'..'9' - подпадает и 1 и 11 и 111 т. к. char понимает только первый символ

Стоп, стоп....
При таком определении:

Код

var
 x:char;

в Х может храниться только 1 символ... Какие 11, 111 и т.д. ? Все правильно сделано, по условию... Что Вы хотите изменить? Ничего менять не надо...