здравствуйте. я новичок. у меня задача прописать в модуле код, для того чтобы выяснить сколько букв А в тексте, введенным пользователем. помогите пожалуйста.

(0) Заводишь счётчик для букв "А", инициализируешь его нулём, проходишь циклом по строке, проверяешь: если символ - буква "А", увеличиваешь счётчик.
Что непонятно-то?

Сч = 0;
Для А = 1 по СтрДлина(ТвояСтрока) Цикл
Если Сред(ТвояСтрока, А, 1) = "А" Тогда
Сч = Сч +1;
КонецЕсли;
КонецЦикла;
Сообщить(Сч);
В 9 классе проходили

Махнись заданиями с JOB: Задания на вакансию Программист 1С

(2) В 9-м классе заставляли учить язык 1С? Суровая челябинская школа?

(4) Тогда Q-basic был. 1с недалеко ушел

(4) А разве алгоритм от языка зависит?

ПромСтрока = СтрЗаменить(ТвояСтрока,"А",Символы.ПС);
КоличествоБуквА = СтрКоличествоСтрок(ПромСтрока)-1;
Сообщить("В строке "+ТвояСтрока+" "+КоличествоБуквА+" букв А");

можно даже в одну строку сделать.

Сообщить("В строке "+ТвояСтрока+" "+СтрКоличествоСтрок(СтрЗаменить(ТвояСтрока,"А",Символы.ПС))-1+" букв А");

Стрдлина(Стр) - Стрдлина(стрЗаменить(стр,"А",1))

а может есть просто СтрЧислоВхождений ? не помню

*(9) стрЗаменить(стр,"А","")

Встроенные функции языка (Script functions)
СтрЧислоВхождений (StrOccurrenceCount)
Синтаксис:

СтрЧислоВхождений(<Строка>, <ПодстрокаПоиска>)
Параметры:

<Строка> (обязательный)

Тип: Строка.
Исходная строка.
<ПодстрокаПоиска> (обязательный)

Тип: Строка.
Искомая подстрока.
Возвращаемое значение:

Тип: Число.
Число вхождений.
Описание:

Вычисляет число вхождений подстроки поиска в исходной строке.

Доступность:

Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение.
Пример:

Результат = СтрЧислоВхождений(ИсходныйТекст, "Число");
Сообщить("Слово ""Число"" встречается " + Результат + " раз.");

(11) хм, а в строке
"абаба"
сколько вхождений "аба" по версии этой функции?

(0) На здоровье


Функция ВыяснитьСколькоБуквАВТексте(ИсходныйТекст)
    
    Если ПустаяСтрока(ИсходныйТекст) Тогда
        Возврат 0;
    КонецЕсли;
    
    Возврат ?(Лев(ИсходныйТекст, 1) = "А", 1, 0) + ВыяснитьСколькоБуквАВТексте(Сред(ИсходныйТекст, 2));
    
КонецФункции


СтрДлина("АБАБА") - СтрДлина(СтрЗаменить("АБАБА","А",""))

(14) упадет ;-)

(15) -> (13)

(15) с чего бы?

(16) На "абаба" не падает и хорошо...

можно так ещё

Функция МоёСтрЧислоВхождений(Источник, СтрокаПоиска)
    
    ИсточникВрем = СтрЗаменить(Источник, СтрокаПоиска, "");
    
    Возврат (СтрДлина(Источник) - СтрДлина(ИсточникВрем)) / СтрДлина(СтрокаПоиска);
    
КонецФункции


Обожаю такие простенькие задачки. Особенно если добавить условия типа "сделать как можно красивее", "сделать как можно оптимальнее", "сделать как можно компактнее (код)"...

(20) а если добавить "вчера" и "бесплатно" ?)

(21) неееее... такое просто ненавижу