Дан текст
"В лесу родилась елочка в лесу она росла"
Слова в тексте разделены между собой одним или несколькими пробелами. Написать программу для выполнения следующих действий:
   А) подсчитать количество слов в тексте;
   Б) подсчитать количество букв а в последнем  слове текста;
   В) найти количество слов ,у которых первый и последний символ совпадают между собой.

Занимайтесь

12 тысяч 500 рублей
За первый вариант. За последующие вариции - 2000 за час.

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

1.разобратьстрокувмассивподстрок()
2.перебрать символы последнего элемента массива и посчитать
3.перебрать все элементы массива и сравнить последний символ с первым, посчитать

в 1 основа все движений

1.СтрРазделить + Количество()
2.СтрНайти + Прав + Количество
3.СтрРазделить +Цикл+ Прав+Лев+условие

(4) А если пробелов будет два между словами?

(5) 0. Пока Найти(Стр,"  ")>0 Цикл СтрЗАменить(Стр,"  "," ")

(5) с какой платформы появилось СтрРазделить()?
(4) РазобратьСтроку() это учитывает

(8) 8.3.6 или еще раньше, не вспомню даже

+ 8 про 5
мой СП такого не знает
а, ясно, много там всякого полезного, надо обновлять.. но геморой ппц


RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.IgnoreCase = Ложь;
RegExp.Global = Истина;
RegExp.MultiLine = Ложь;
RegExp.Pattern = "\s{1,}";
Matches=RegExp.Execute("В лесу  родилась елочка в лесу она росла");
Количество = Matches.Count() + 1;
Сообщить("Количество слов в тексте: "+Количество);


(2) У меня ставка 500-1500 в час (в зависимости от жадности текущей), потратил на (11) 3 минуты, сколько в рублях с ТС считать лень

(11)+ Для Б) и В) делается по образцу, ничего сложного поменять только RegExp.Pattern = "...";

Текст = "В лесу родилась елочка в лесу она росла";
    ПерваяЗадача1 = СтрЗаменить(Текст," ",Символы.ПС);
    ПерваяЗадача2 = СтрЧислоСтрок(ПерваяЗадача1);
    //Сообщить(ПерваяЗадача2);
    ВтораяЗадача1 = СтрПолучитьСтроку(ПерваяЗадача1,ПерваяЗадача2);
    Массив = Новый Массив;
    Для  Сч = 1 По 8  Цикл
        ТретьяЗадача = СтрПолучитьСтроку(ПерваяЗадача1,Сч);
        Массив.Добавить(ТретьяЗадача);
    КонецЦикла;
    Для Каждого Стр Из Массив Цикл
        
        
    КонецЦикла;
Я вот первые две задачи решил третью никак не могу решить

ВтораяЗадача2 = СтрДлина(ВтораяЗадача1);

Если Лев(ТретьяЗадача, 1) - Прав(ТретьяЗадача, 1) Тогда
          Массив.Добавить(ТретьяЗадача);
КонецЕсли;

Если Лев(ТретьяЗадача, 1) = Прав(ТретьяЗадача, 1) Тогда
          Массив.Добавить(ТретьяЗадача);
КонецЕсли;

(14) 1-я задача решена с ошибкой, не учтено что между словами может быть " " а может "  " или даже "            ".

"В лесу  родилась   елочка    в      лесу      она       росла" - вполне корректная исходная строка.