Знак = "A";

//Букву узнаём по тому, что ВРег или НРег
//её меняет. У иероглифов регистра нет,
//их так не отличить
ЭтоБуква = (Знак <> ВРег(Знак)) Или
    (Знак <> НРег(Знак));
//ЭтоБуква = Истина

ЭтоЦифра = СтрНайти("0123456789", Знак) > 0;
//ЭтоЦифра = Ложь

//Проверка принадлежности набору
Спецсимволы = "@#$%^&*";
ВСписке = СтрНайти(Спецсимволы, "$") > 0;
//ВСписке = Истина

Сообщить("ЭтоБуква: " + ЭтоБуква);
Сообщить("ЭтоЦифра: " + ЭтоЦифра);
Сообщить("ВСписке: " + ВСписке);