Товарищи, подскажите алгоритм, чтобы разбить число (например 1000) на несколько неравных частей, например 17

Спасибо

%
*
-
=
это все, что нужно

когда собеседование?

делишь нацело на 17, потом попарно к каждой части прибавляешь 1 и -1, 2 и -2 и т.д. к последней части с "+" еще привинчиваешь остаток

ну, или берешь части от 1 до 16 и потом остальное как 17 часть....

16 раз отнимаешь рандомное число, проверяя, не было ли уже такого числа и не получится ли в результате число, которое уже было.

находишь сумму чисел от 1 до 17, делишь на это число, потом результат умножаешь на 1, 2, 3 и т.п.

а сколько способов нужно на зачет?

(7) 10 или 17 неравных способов

(5) просто рандомное надо генерить в диапазоне от 1 до Х/17

(6) корень 17 степени и минимальное не занятое большее целое. Любая монотонная ункция, линия от 1 до 1000 по У для от 1 по 17 по Х

в (4) части = числа

(10) ошибка, но понятно с учетом (6), надо сумму вычесь

Пусть Xi - i-тое число. Тогда нужно найти все решения системы:
СУММА(Xi) = 1000
Xi<=Xi-1
Xi>=0

вообще профессия программиста в том и состоит, чтобы разбить задачу на элементарные подзадачи

(13) Xi<=Xi-1
так не бывает

при Xi>=0

вопрос на пятерку: а сколькими способами с точностью до перестановок это можно сделать

да, вот - правильная картинка по этому поводу

(17) больше 1000 :)

может больше 1000000, хз. тут математик нужен.

вот еще хороший вопрос: почему в теме 10, а в (0) - 17?

(15) Виноват: Xi<=X(i+1)-1
(17) Если пятерка тыр, то готов.

(20) согласен) вопрос к программистам мы решили, а к математикам пофиг) аминь.
*насколько я помню вопрос про количество разбиений действительно довольно сложный

явно кто-то слишком много смотрел фильм "Человек, который познал бесконечность"

(0) https://habrahabr.ru/post/239009/

+(25) https://ru.wikipedia.org/wiki/Разбиение_числа

предлагаю через пропорцию...
1/17
2/17
3/17
...
9/17
+
0.5

(27) сорри
8/17
+
0.5

(28) хотя не так, последнее число берем вычтя все предыдущие

(26) Это слишком просто, "взять типовое решение" ))

(17) по индукции не очень и сложно

Рез=0;
    Итог=1000;
    Шаг=1;
    КолвоЧастей=17;
    для сч =Шаг по КолвоЧастей+2 цикл        
        Рез=Рез+Сч;
    КонецЦикла;
    
    Рез=0;
    Если Рез <= Итог Тогда
        
        для сч =Шаг по КолвоЧастей-1 цикл        
            Сообщить(Сч);
            Рез=Рез+Сч;
        КонецЦикла;
        Сообщить(Итог-Рез);         
    КонецЕсли;  


РЕЗУЛЬТАТ:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
864

(31) по индукции от чего? условие что части должны быть неравны(читай попарно неравны) вашу индукцию поломает на корню

(33) база Сумма(1..17), потом + 1

(0) Погугли на Мисте "распределить пропорционально". Я где-там давал алгоритм, учитывающий набегающую ошибку округление при делении на пропорции.

(34) пфф, так это вообще школьная формула)

(34) ничего не понятно. база: сумма (1..16)+864 - так?
Какое предположение индукции?
какой шаг?

Из википедии:
Количество разбиений натурального числа n на k слагаемых удовлетворяет рекуррентной формуле:

P(n,k)=P(n?1,k?1)+P(n?k,k)
с начальными значениями:
P(i,i) = 1 ? i ? N
P(i,1) = 1 ? i ? N
P(i,j) = 0 ? j > i.

(38) не вижу условия различности слагаемых

Что-то криво вышло:
P(n,k)=P(n-1,k-1)+P(n-k,k)
с начальными значениями:
P(i,i) = 1 для натурального i
P(i,1) = 1 для натурального i
P(i,j) = 0 для j>i.

(39) Согласен, поторопился. Но предложение (22) остается в силе.

(0) задачка из учебника какого класса и по какому предмету?

(42) Тритий класс церковно-приходской же.

товарищи, спасибо!
В итоге, какая функция?

(44) Массив = РазбитьЧислоНаНеравныеЧасти(Х,У)

Такой код должен подойти.

Запрос = Новый Запрос("ВЫБРАТЬ ССЫЛКА из Справоник.СотрудникиОрганизаци Где Где ДатаУвольнения = Датавремя(1,1,1) И Наименование Подобно ""%МаленькийВопросик%""");

Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
Возврат;
КонецЕсли;

Выборка = Результат.Выбарть();

Пока Выборка.Следующий() Цикл
Док = Документы.УвольнениеИзОрганизаций.СоздатьДокумент();
Док.Дата = ТекущаяДата();
Док.Организация = Выборка.Организация;

НоваяСтрока = Док.СотрудникиОрганизации.Добавить();
НоваяСтрока.Сотрудник = Выборка.Ссылка;
НоваяСтрока.ФизЛицо = НоваяСтрока.Сотрудник.ФизЛицо;
НоваяСтрока.ПричинаУвольнения = Справочники.ПричиныУвольнения.НайтиПоНаименованию("п. 3 ч. 1 ст. 81");
Док.Записать(РежимЗаписиДокумента.Проведение);
КонецЦикла;

самое простое
послчисло = 1000;
для и = 1 по 17-1 цикл //вместо 17 подставьте ваше число

сообщить (и);
послчисло - послчисло - и;

конеццикла;
сообщить (послчисло);

(47) послчисло = послчисло - и;