var c:char;
begin
write('Введите символ: ');
readln(c);
case c of
'0'..'9' :writeln('digit');
'A'..'Z','a'..'z':writeln('lat');
'А'..'Я','а'..'я':writeln('rus');
else writeln('Другой символ');
end;
end.
Пример:
Введите символ: П
rus
var c:char;
begin
write('Введите символ: ');
readln(c);
case c of
'0'..'9' :writeln('digit');
'A'..'Z','a'..'z':writeln('lat');
'А'..'Я','а'..'я':writeln('rus');
else writeln('Другой символ');
end;
end.
Пример:
Введите символ: П
rus