Необходимо разбить число пробелами.
Например 23543 должно быть как строка "2 3 5 4 3"

цикл

погляди справку по Сред()

Все сделал, вот код, может кому пригодится:

Функция РазбивкаЧисел(Разб)
   РазбСтрока = Строка(Разб);        // строковое представление числа
   ДлСтр = СтрДлина(РазбСтрока);    // количество цифр в числе  
   сч = 1;
   
   Для ном = 1 По ДлСтр Цикл
       ВозвратСтроки = ВозвратСтроки + Сред(РазбСтрока, сч, 1) + " ";  
       сч = сч + 1;
   КонецЦикла;
   
   Возврат ВозвратСтроки;
КонецФункции

(3) Работает?

(3) последний пробел тебе нужен?

где ВозвратСтроки="" ?

Срочно а базу знаний...

Функция РазбавитьЧисло(Разб)
   РазбСтрока = Строка(Разб);
   ВозвратСтроки = "";
   Для ном = 1 По СтрДлина(РазбСтрока) Цикл
       ВозвратСтроки = ВозвратСтроки + Сред(РазбСтрока, ном, 1) + " ";  
   КонецЦикла;
   Возврат СокрП(ВозвратСтроки);
КонецФункции

(3) на вот, чуть симпатичней

стр="88465";
стр1="";
Для й=1 По СтрДлина(стр) Цикл
   стр1=стр1+Сред(стр, й, 1)+" ";
КонецЦикла;
Сообщить(СокрП(стр1));

вот самый оптимальный

стр="88465";
возврат "8 8 4 6 5";

(10) ггг)

(10) первая строка лишняя

(12) ))

Вот теперь можно в базу знаний

и даже никто не спросил: накуа?

(14) Ну да, давайте всякую хрень в БЗ накидаем. Чтобы было.

(16) Что-то у тебя с юмором совсем туго..

вот что в базу знаний надо ;)
Формат(ч, "ЧГ=1,1,1");

(18) Что это?

ну кому нужно доработает, просто сам гуглил - так ничего не нашел подходящего))

на перле была бы одна строчка

(20) скажи уже, зачем?

Работает, нужно только в начале функции написать
ВозвратСтроки = "";
Чтобы обнулялось при последующем вызове функции.

(23) это ты (6) невнимательно читал

да, возможно

$a="12345"
$a ~= s/(\d)(?=^\Z)/\1 /
print $a

(26) На Ассемблере можно?

Еще рекурсии не хватает.

(28) запросто!

Ну вот тогда окончательный вариант:

// Функция возвращающая строковое представление числа,
// каждая цифра которого отделена пробелами
Функция РазбивкаЧисел(Разб)
   РазбСтрока = Строка(Разб);    // строковое представление числа
   ДлСтр = СтрДлина(РазбСтрока);    // количество цифр в числе  
   сч = 1;              // счетчик символов
   ВозвратСтроки = "";             // возвращаемая строка
   Для ном = 1 По ДлСтр Цикл
       ВозвратСтроки = ВозвратСтроки + Сред(РазбСтрока, сч, 1) + " ";  
       сч = сч + 1;        
   КонецЦикла;
   Возврат ВозвратСтроки;
КонецФункции

(30) запятую после слова "функция" пропустил. исправляй, показывай

сейчас

(30) Чукча не читатель? Чукча писатель?

(30) ну и накуа счетчик символов

(32) я ещё на (5) могу намекнуть. и на (8) с (9)

можно и без счетчика.

Wobland, ты еще не видел мой вариант с остатком от деления...
Хорошо, что тут сразу подсказали функцию нужную))

Можно и без ДлСтр

(37) Предлагаю тебе оформить данную разработку в отдельную конфигурацию.

(37) дата регистрации сегодня. стесняешься? ;)

(39) и только за большие деньги.

Wobland, я тут только сегодня и зарегался.
Ыщъ, с ДлСтр лучше думаю.. зачем в цикле кучу раз вызывать ф-ю СтрДлина()?

(42) один раз вызывать. насладись результатом:

Функция ДлинаСтр(стр)
   Сообщить("ой");
   Возврат СтрДлина(стр);
КонецФункции

Процедура КнопкаВыполнитьНажатие(Кнопка)
   стр=234523;
   стр1="";
   Для й=1 По ДлинаСтр(стр) Цикл
       стр1=стр1+Сред(стр, й, 1)+" ";
   КонецЦикла;
   Сообщить(СокрП(стр1));

а семёрочный Формат() разделителей групп не знает?

Спасибо большое за столь пристальное внимание к моему ламерскому коду))

гыгы

Возврат СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Разб, "1", "1 "), "2", "2 "), "3", "3 "), "4", "4 "), "5", "5 "), "6", "6 "), "7", "7 "), "8", "8 "), "9", "9 "), "0", "0 ")

(46) каков красавец ;)

// Функция возвращающая строковое представление числа,

// каждая цифра которого отделена пробелами

Функция РазбивкаЧисел(Разб)
   РазбСтрока = Строка(Разб);    // строковое представление числа

   ДлСтр = СтрДлина(РазбСтрока);    // количество цифр в числе  

   ВозвратСтроки = Лев(РазбСтрока, 1);             // возвращаемая строка

   Для ном = 2 По ДлСтр Цикл

       ВозвратСтроки = ВозвратСтроки + " " + Сред(РазбСтрока, ном, 1);  
             
   КонецЦикла;
   Возврат ВозвратСтроки;
КонецФункции

(46) Незачет, последний пробел не убрал.

(49) ну, забыл, ну что

Возврат СокрЛП(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Разб, "1", "1 "), "2", "2 "), "3", "3 "), "4", "4 "), "5", "5 "), "6", "6 "), "7", "7 "), "8", "8 "), "9", "9 "), "0", "0 "))

(50) Красавец. А можешь для букв написать такую функцию)

Ветку в "Юмор" не пора?

(51) в условии сказано для цыфр

(53) Печалька.

(26) $a ~= s/\B/ /g
(50) быстрее всех вариантов с циклами

жесть
Функция РазбивкаЧисел(Разб)
   Для ном = 0 По 9 Цикл
       Разб= СтрЗаменить(Разб, Строка(ном), Строка(ном)+ " ");
   КонецЦикла;
   Возврат СокрЛП(Разб);
КонецФункции

обыбался
Функция РазбивкаЧисел(ВхЧисло)
   Разб = Строка(ВхЧисло);
   Для ном = 0 По 9 Цикл
       Разб= СтрЗаменить(Разб, Строка(ном), Строка(ном)+ " ");
   КонецЦикла;
   Возврат СокрЛП(Разб);
КонецФункции

да, пожалуй, (50) самый быстрый будет

(58) зато если буквы разбавлять, то умучаешься копипастить

(59) нужно написать код для генерации текста кода  О_о

(59) по кодам символов можно

(61) что именно? пример из (50) ?

(60) В бесконечную рекурсию уйдёт и затопит кодом всю Землю.

(0) Еще один Г1с со своей никому не нужной библиотекой функций???