Посчитать количество строчных (маленьких) и прописных (больших) букв в введенной строке. Учитывать английские и русские буквы.

для сред КодСимвола<= КодСимвола>=

накину) и пойду спать

    НР = 0;
    ВР = 0;
    Для инд = 1 По СтрДлина(Реквизит1) Цикл
        Симв = Сред(Реквизит1, инд, 1);
        НР = НР + (Симв = НРег(Симв) и Симв <> ВРег(Симв));
        ВР = ВР + (Симв <> НРег(Симв) и Симв = ВРег(Симв));
    КонецЦикла;

(2)
не учтено   "русские и латанские"
алгоритмический кретинизм. двойка.

попробовать регулярками, например [а-яёa-z] без учета регистра

(0) Вам понадобятся - лупа с трехкратным увеличением, счеты, гусиное перо и чернила, а также линейка. Поместите линейку перпендикулярно введенной строке так, чтобы слева от линейки был виден один символ. Если символ строчный, отложите на счетах одну костяшку в нижнем ряду, а если прописной, то одну в верхнем. Переместите линейку вправо, повторите операцию анализа символа, оставшегося слева от линейки. Если символ виден плохо, используйте лупу.

Повторять до тех пор, пока не передвинете линейку в конец строки.

Отложите лупу. Пересчитайте костяшки на счетах. Запишите результаты пером, макая его в чернила.

(0) это куда на собеседовании такие задачки дают?

(3) учтено всё

(0) а другие виды букв? например, грузинские?

(8) "буквы бывают прописные, строчные, и грузинские."©

(9) Анекдот в тему

Идет международный конгресс сексологов. Выступает американец:
- In our laboratory, a powder has been made that allows you to increase the penis by 10 cm!
(Аплодисменты в зале.)
Выступает француз:
- Dans notre laboratoire, nous avons créé un mélange qui augmente le pénis de 15 cm!
(Аплодисменты в зале)
Выступает грузин:
ჩვენ გამოგონილი გვაქვს აბები, რომლებიც პენისს ნესვს ჰგავს !
-?! Вопрос из зала: - В длину или в ширину?
- პირველ რიგში, გემოვნებას ვგულისხმობთ

(3)
>> не учтено   "русские и латанские"
Да, этот код любые съест, не только указанные. Отчасти согласен.

>> алгоритмический кретинизм
Это медицинский диагноз или ты не врач :)? Что не так?
"Накину" не просто так писал. Хочется узнать мнение сообщества к использованию неявного преобразования типов, в т.ч. такому.


(2) наверное можно упростить
НР = НР + (Симв <> ВРег(Симв));
ВР = ВР + (Симв <> НРег(Симв));

(11) > мнение сообщества к использованию неявного преобразования типов, в т.ч. такому.
А еще надо написать все в одну строку, потому что так быстрее работает.

(10) Красавчик, орал))

(9) ну не во всех письменностях есть разделение на прописные и строчные

(11) У вас НР завышены как мин. Врег(" ") <> " " :)

(12) Не не, символ вычислен отдельно. С этой стороны вроде не докопаешься: одно действие - одна строка.
(15) У тебя какая версия 1С? В моей пробел во всех регистрах одинаков :)

Код в (2) страдает избыточностью. Достаточно посчитать в один проход количество букв одного типа. Количество второго вычисляется вычитанием количеством первого из общего.
И еще - непонятно нужно ли делать проверку на то что символ это буква?

Могут быть ещё пробелы, цифры, знаки препинания...

+ (17) И проверку достаточно делать один раз. Если оно нижнего регистра то уж точно не верхнего
НР = НР + (Симв = НРег(Симв));

(19) только наоборот, смотри (11)
" " == НРег(" ") == ВРег(" ") //это не код, а утверждение))

(13) я даже боюсь спросить... точно "орал"?

(20) ага, поэтому нужно просто условие сделать в цикле и пропускать лишние символы, которые к буквам не относятся.
КолСимволовНРег=0;
КолСимволовВРег=0;
Для к=1 По СтрДлина(ТекСтрока) Цикл
    ТекСимвол=Сред(ТекСтрока,к,1);
    Если ВРег(ТекСимвол)<>НРег(ТекСимвол) Тогда
        КолСимволовНРег=КолСимволовНРег+(ТекСимвол=НРег(ТекСимвол));
        КолСимволовВРег=КолСимволовВРег+(ТекСимвол=ВРег(ТекСимвол));
    КонецЕсли;
КонецЦикла;

(22) Если уж мы "если" используем смысл в таких конструкциях (с неявным приведением булево) теряется

Если Симв <> ВРег(Симв) Тогда
   НР = НР + 1;
ИначеЕсли Симв <> НРег(Симв) Тогда
   ВР = ВР + 1;
КонецЕсли;

Такой вариант думаю ни у кого вопросов вызывать не должен, (2) накидывал специально чтобы реакцию на Число+Булево увидеть

(21) конечно, анекдот про это

(24) грузины в анекдотах обычно подходят с другой стороны...

(25) с философской?

"АБВГ...ABCD..." и "абвг...abcd..." и обычная проверка на вхождение очередного символа в эталонную строку

Reg = Новый COMОбъект("VBScript.RegExp");
Reg.IgnoreCase = Ложь;
Reg.Global = Истина;
Текст = "Текст";

Reg.Pattern = "[а-яёa-z]+?";
НР = Reg.Execute(Текст).Count();

Reg.Pattern = "[А-ЯЁA-Z]+?";
ВР = Reg.Execute(Текст).Count();

так нужно:
"[а-яёa-z]"
"[А-ЯЁA-Z]"

(10) Американец бы сказал "3.9 inch"

что такое Лорень? или это жопень должна быть

я бы еще упростил .... т.к

НР+ВР = СтрДлина(Реквизит) -))

а пробелы и символы считаем ?

(32) а пробелы и символы считаем ?
А сам как думаешь?