Число 45 879
как посчитать количество цифр?
в данном примере должно получится 5 цифр.

различных?

да просто количество (1)

взять 10 логарифм

Можно еще СтрДлина

как вариант преобразовать в строку и посчитать посимвольно

СтрДлина(Формат(ТвоеЧисло,"ЧРГ=''; ЧГ=0"))

(0) строкачисла=Стрзаменить(строка(Число));//"123456"
колвоЦифр=0;
ДЛя каждого символ из строкачисла цикл
Если символ="0" тогда//(или 2-9)
колвоЦифр=колвоЦифр+1;
КонецЕсли;
КонецЦикла;

(7) Стрзаменить(строка(Число)," ","")*

(8)
строкачисла=Стрзаменить(строка(Число)," ","");//"123456"

        колвоЦифр=0;
        ДЛя каждого символ из строкачисла цикл
        Если символ="0" тогда//(или 2-9)

        колвоЦифр=колвоЦифр+1;
        КонецЕсли;
        КонецЦикла;
        
        Сообщить(колвоЦифр);

Форма.Форма.Форма(115)}: Итератор для значения не определен
        ДЛя каждого символ из строкачисла цикл

(9) ну для символ=1 по СтрДлина(строкачисла) цикл
Если сред(строкачисла,символ,1)="0" тогда//(или 2-9)

реквизит значений тип Число

(11) и да
Если сред(строкачисла,символ,1)="0" или сред(строкачисла,символ,1)="1"или сред(строкачисла,символ,1)="2"...или сред(строкачисла,символ,1)="9"тогда
колвоцыфр=колвоцифр+1;
КонецЕсли;

в (6) решение чем не устраивает?

(13) Потому что это конкурс )))

(13) не прочел)))))))

(14)У кого длиннее?

(16) а Фдрук там кроме цифор исчо чето написано?))

(17)ТС утверждает, что там число

(12)
строкачисла=Стрзаменить(строка(Число)," ","");//"123456"

        колвоЦифр=0;
         для символ=1 по СтрДлина(строкачисла) цикл
                
        Если сред(строкачисла,символ,1)="0" или сред(строкачисла,символ,1)="1"
            или сред(строкачисла,символ,1)="2" или сред(строкачисла,символ,1)="3"
            или сред(строкачисла,символ,1)="4" или сред(строкачисла,символ,1)="5"
            или сред(строкачисла,символ,1)="6" или сред(строкачисла,символ,1)="7"
            или сред(строкачисла,символ,1)="8" или сред(строкачисла,символ,1)="9" тогда
            колвоЦифр=колвоЦифр+1;
        КонецЕсли;
        
        КонецЦикла;
        
        Сообщить(колвоЦифр);

работает спасибо

(19) 6 тоже отработает, если у тя там число стоит причем кода меньше

сред(строкачисла,символ,1)>="0" и  сред(строкачисла,символ,1)<="9"

а есть метод по короче

Здесь пятничный стеб или все что после (3) серьезно?

КоличествоЦифр = СтрДлина(СтрЗаменить(Строка(Формат(НашаПеременная, "ЧРД=; ЧГ=0")),",",""));

(22) >(6)

(25)У него, похоже, посты с (6) не отображаются...

(26) )))))))))))))))))))))))))))))))

КоличествоЦифр =Цел(Log10(ТвоеЧисло))+1;

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

(29) см (28)

(29)Только если оно у тебя целое же.

а в числе 123,45 сколько цифр должно вернуть?

(28) вот только, с нулём и с отрицательными числами, не покатит

(28) Огромное Спасибо Человек.

(34) а че, (3) не осилил ?

всем спасибо
особенно (23)
(33) придумаю ченибуть

(32) (33) В (0) приведен пример с целым положительным числом. Если уж на то пошло, давайте определяться с каким множеством работаем, а то 7/3 тоже число и "Pi" число, и "e".

если для любых чисел (дробных, отрицательных), то например, такой примитив

КолЦиферок=0;
Для к = 1 по СтрДлина(строка(ТвоёЧисло)) Цикл
  Если Найти("01923456789",Сред(строка(ТвоёЧисло),к,1))>0 тогда
     КолЦиферок=КолЦиферок+1;
  КонецЕсли;
КонецЦикла;

(38) только целые числа

Если Число <> 0 Тогда
            КоличествоЦифр =Цел(Log10(Число))+1;
        КонецЕсли;
        Сообщить(КоличествоЦифр);


Вроде работает и четыре строчки

спасибо всем

(39) целые числа могут быть отрицательными. ну и сунь отрицательное число в логарифм

Ответ = СтрДлина(Формат(Строка(Число), "ЧГ="));
Если Число < 0 Тогда Ответ = Ответ -1; КонецЕсли;

(42) А если дробное, то еще -1.

(43) а если в научной/инженерной записи, то еще -1.

(44) хотя нет, тут будет несколько сложнее...надо ж еще прибавить то, что после Е

(42)
Ответ = СтрДлина(Формат(Строка(Число), "ЧГ="));
            Если Число < 0 Тогда Ответ = Ответ -1; КонецЕсли;
         Сообщить(Ответ);
круто но дает в 5  6 симолов   пробел попадает надо вычесть его

Спасибо

(42)
Ответ = СтрДлина(Формат(Число(Число), "ЧГ="));
            Если Число < 0 Тогда Ответ = Ответ -1; КонецЕсли;
         Сообщить(Ответ);

так попробовал пошло на ура