ДлинаСтроки = СтрДлина(Число1);
   Сумма = 0;
   Для Шаг = 1 По ДлинаСтроки Цикл
       БуферСимволовСтроки = Число(Прав(Лев(Число1,Шаг),1));
       Сумма = Сумма + БуферСимволовСтроки;
   КонецЦикла;

При вводе более трех цифр вылетает следующее: {Форма.Форма.Форма(59)}: Преобразование значения к типу Число не может быть выполнено
       БуферСимволовСтроки = Число(Прав(Лев(Число1,Шаг),1));

Все это во внешней обработке. Если кто-то знает как решить проблему, помогите плз...

Число1 в студию

1111111

Потому что разделитель разрядов.

кто-нибудь, переведите мне вот это:
БуферСимволовСтроки = Число(Прав(Лев(Число1,Шаг),1));

(3) А теперь в отладчике проверь Стрдлина(1111111)

через "Формат" получи строку представления числа и работай с ней.

(5) Автор не знает про Сред()

Для Шаг = 1 По ДлинаСтроки Цикл
  что = Сред(Число1, Шаг, 1);
  Если Найти("0123456789",  что) > 0 Тогда
     Сумма = Сумма +  Число(что);
  конецЕСли;
КонецЦикла;

(5)Это такая кривая реализация функции Сред(Число1,Шаг,1)

(4) +1

ДлинаСтроки = СтрДлина(СтрЗаменить(Строка(Число1), Символы.НПП, ""))

По-моему да...спасибо большое

(12) не учёл буквы

(12) с какой-нибудь французской локалью работать не будет

(12)+1
отладчик спасет отца русской демократии (С)

(12) Тогда уж Стрдлина(Формат(Число, "ЧГ="))

(14) какие буквы в числе?
(15) французы они такие французы...
(17) юзаю символы НПП обычно, по привычке...

ДлинаСтроки = СтрДлина(Число1);
   Сумма = 0;
   Для Шаг = 1 По ДлинаСтроки Цикл
       БуферСимволовСтроки = Сред(Число1,Шаг,1);
       //БуферСимволовСтроки = Число(Прав(Лев(Число1,Шаг),1));
       Сумма = Сумма + Число(БуферСимволовСтроки);
   КонецЦикла;

Ошибка: Та же самая.

(4) - думаю дело в разделителе

(19) ты прав. Ошибка в ДНК...

(19) ты читал вобще? (12)(17)?

(19) сравни с (9)

(19) дааа. А сути-то парень не уловил.

(18)

1.8е

(19) У тебя 4(четвертый) символ - ДОЛБАНЫЙ ПРОБЕЛ.

(25) ты реально думаешь что у автора это есть? Это в типовых не предусмотрено, напиши петицию на селезнёвку

(27) это число 18

(8)(10) спасибо.
(0) суть задачи - посчитать сумму цифр в строке?

Замена1 = СтрЗаменить(Строка(Число1), Символы.НПП, "");
   ДлинаСтроки = СтрДлина(Замена1);
   Сумма = 0;
   Для Шаг = 1 По ДлинаСтроки Цикл
       БуферСимволовСтроки = Сред(Замена1,Шаг,1);
       Сумма = Сумма + БуферСимволовСтроки;
   КонецЦикла;
   Предупреждение("Сумма = " + Сумма);

Получилось, спасибо большое!

(30) ты код из (9) смотрел ?

(30) открой СП и ознакомься с Формат()

(32) не мешай, пусть учится.

(34) в ветке не было универсального решения

функция суммаРазрядов(Чис НатуральноеЧисло)
  Результат = 0;  
  пока НатуральноеЧисло <> 0 цикл
       Результат = Результат + НатуральноеЧисло %10;
       НатуральноеЧисло = Цел(НатуральноеЧисло /10);
  конецЦикла;
  возврат результат + НатуральноеЧисло %10;
конецФункции

Все отлично объяснили) Все заработало. Пасиб