в переменную типа 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) но и с этим тоже не получается