Множество, подмножества, суммы

@Ahiles · Регистрация: 03.10.2008

Студворк — интернет-сервис помощи студентам

Всем привет!

Дано множество {1, 2, ... ,n} n=<200 и число k, делитель n. Написать программу которая выведет одну из возможностей разбиения этого множества на k подмножеств по n/k элементов, так что сумма элементов во всех подмножествах равна.

Я написал для n чётного, но не могу найти решения для нечётного.. Существует ли для нечётного вообще алгоритм???

Вот что у меня получилось

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program premii;
type t=array[1..200] of integer;
var n,k,j,s,i:integer; f,g:text;  A:t;
  begin
    assign(f, 'in.txt');
    reset(f);
    assign(g, 'out.txt');
    rewrite(g);
    read(f, n); read(f,k);
    if n mod 2 =0 then
        begin
           if k mod 2=1 then writeln(g, '0') else
 
           begin
              for i:=1 to k do begin
 
                for j:=1+s to trunc(n/(2*k))+s do
                  write(g, j, ' ',n-j+1, ' ');
 
                s:=s+trunc(n/(2*k));
 
                writeln(g);
 
                end;
 
           end;
 
        end;
    close(f); close(g);
  end.

Если ВОЗМОНЖНО то сначала подать идей, а уж потом решение.. Хочется самому допереть...

@Puporev · 12.11.2008, 12:31

Дело не в четности или нечетности. Нужно чтобы n не было прстым числом, т.е должно иметь делители кроме 1 и n. Поэтому при вводе n нужно делать соответствующую проверу.
Для этого я бы написал логическую функцию проверки простых чисел и проверял ввод n так:

Pascal
1
2
3
4
repeat
write('n=');
readln(n);
until not Prost(n);

Кроме того число k должно быть таким делителем числа n. Опять нужна проверка типа:

Pascal
1
2
3
4
repeat
write('k=');
readln(k);
until (k>1)and (k<n) and (n mod k=0);

Добавлено через 1 час 3 минуты 49 секунд
Да и решение какое-то странное. Нужно ведь из множества, например [1,2,3,4,5,6,7,8,9] получить его разбиения из 3 по три с равной суммой и чтоб в разбиениях элементы не поаторялись, т.е. например
[1,5,9] [2,6,7] [3,4,8]. А это для больших n не такая простая задача, рекурсией попахивает.

@Ahiles · 12.11.2008, 23:16 **[ТС]**

Сообщение от Puporev

Дело не в четности или нечетности. Нужно чтобы n не было прстым числом, т.е должно иметь делители кроме 1 и n. Поэтому при вводе n нужно делать соответствующую проверу.
Для этого я бы написал логическую функцию проверки простых чисел и проверял ввод n так:
repeat
write('n=');
readln(n);
until not Prost(n);
Кроме того число k должно быть таким делителем числа n. Опять нужна проверка типа:
repeat
write('k=');
readln(k);
until (k>1)and (k<n) and (n mod k=0);

В условии сказано что k делитель n, следовательно n не простое!

А МОЖЕТ КТО-ТО РЕШИТЬ ЭТУ ЗАДАЧУ???

@Puporev · 13.11.2008, 09:30

следовательно n не простое!

А если пользователь введет число 17? Если ты таких вещей не знаешь, зачем за серьезные задачи берешься? Ищи в инете, в книгах про генерацию разбиений множеств.

@Ahiles · 13.11.2008, 16:55 **[ТС]**

Пользователь не вводит... А число уже дано... Не понял... каких вещей я не знаю??? И всё-таки можно хоть какую нибудь идею.. Или вы просто сами не знаете как решить??

@Puporev · 13.11.2008, 17:06

А число уже дано.

Кем дано? Богом? Я Вам написал, что и где искать. А решать эту задачу мне как то ни к чему, мне ее не задавали.

@Puporev · 13.11.2008, 18:40

Вот работа на тему разбиения множеств, но там генерируются все подмножества, а тебе надо выбрать из них только те, в которых количество элементов равно n div k, а их сумма ((1+n)*n div 2) div k.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@Ahiles 0 / 0 / 0 Регистрация: 03.10.2008 Сообщений: 9
	13.11.2008, 16:55 [ТС]
	Пользователь не вводит... А число уже дано... Не понял... каких вещей я не знаю??? И всё-таки можно хоть какую нибудь идею.. Или вы просто сами не знаете как решить?? 0