36085481 у меня получилось.
программа такая:
Global maxDigits = 10
; Функция для подсчета целых чисел
Procedure CountIntegers()
Define total = 0
For digits = 1 To maxDigits
If digits = 1
; Одноразрядные числа (0-9)
total + 10
Else
; Многоразрядные числа, первая цифра 1-9
Define count = 9
For d = 1 To digits - 1
count * (10 - d) ; Умножаем на доступные цифры
Next d
total + count
EndIf
Next digits
ProcedureReturn total
EndProcedure
; Функция для подсчета дробных чисел
Procedure CountDecimals()
Define total = 0
; Смотрим на целую часть (1-9 цифр)
For intDigits = 1 To 9
Define wholeCount = 9
For d = 1 To intDigits - 1
wholeCount * (10 - d)
Next d
; Доля после запятой (от 1 до 10 цифр)
For decDigits = 1 To 10 - intDigits
Define decimalCount = 1
For d = 1 To decDigits - 1
decimalCount * (10 - d - intDigits) ; Учитываем уже использованные цифры
Next d
total + wholeCount * decimalCount
Next decDigits
Next intDigits
ProcedureReturn total
EndProcedure
; Основная часть программы
Define totalIntegers = CountIntegers()
Define totalDecimals = CountDecimals()
; Вывод результатов
MessageRequester("Результаты", "Количество целых чисел: " + Str(totalIntegers) + Chr(10) +
"Количество дробных чисел: " + Str(totalDecimals), #PB_MessageRequester_Ok)
