Набрать сумму (Pascal, C++)

[Demius]

Даны два числа N и K (N < K). Необходимо вывести некоторые числа от 1 до N, чтобы, сложив их, получить K.

Например, для N = 8, K = 13 ответ будет 2, 3, 8.

[rrrFer]

Ну это классическая задача о ранце, разве нет?
Решения можно найти готовые, только числа свои подставить. На википедии 99% есть решение.

[Serge_Bliznykov]

Ну это классическая задача о ранце, разве нет?

на мой взгляд, это не совсем ранец!

хотя, дьявол, конечно, кроется в деталях..
Например, что значит "вывести некоторые числа" ?
Они могут повторяться? Сколько числе может/должно быть?

вот, например:

Например, для N = 8, K = 13 ответ будет 2, 3, 8.

а почему не 6+7 или не 5+8 или не 1+2+3+7 ?

[rrrFer]

на мой взгляд, это не совсем ранец!

хотя, дьявол, конечно, кроется в деталях..

Разновидностей ранцев десятки. Суть не меняется. Ну разве что жадный ранец с сыпучими продуктами решается проще xD.

[Bugrimov]

Еще какой жадный. https://ru.wikipedia.org/wiki/%D0%97...BD%D1%86%D0%B5

[rrrFer]

Bugrimov
К чему эта ссылка?

[Bugrimov]

Возможно Demius не знает ничего о рюкзаках, из это ссылки он подчеркнет немного инфы. К чему вопрос?

[Poma][a]

а почему не 6+7 или не 5+8 или не 1+2+3+7 ?

А какая разница?
Если задача сдается препу, то он примет любой вариант, если бездушной машине, то там есть чекер(наверное)

Я бы придрался к повторам и выводил 1-ки т.к. про отсутствие повторов ничего не сказано

[Demius]

Нам даны числа 1, 2, 3, ..., n, и k. Нам нужно набрать из чисел [1; n] сумму, равную k. При этом брать некоторое число более одного раза нельзя.

И если уж на то пошло, то вывести можно любой вариант, проверяет чекер.

Если честно, то это лишь часть от задачи. Если хотите прочитать полное условие - напишите. Опишу также алгоритм до данной подзадачи (достаточно простой).

[Poma][a]

var
	w : array [0..1000] of Integer;
	a : array [0..1000, 0..10000] of Integer;
	n, m, i, j : Integer;

begin
	ReadLn(n, m);
	for i := 1 to n do
		w[i] := i;

	for i := 1 to n do
		for j := 0 to m do begin
			a[i, j] := a[i-1, j];
			if (w[i] <= j) and (a[i, j] < a[i-1, j-w[i]]+w[i]) then a[i, j] := a[i-1, j-w[i]]+w[i];
		end;

	i := n; j := m;

	while i*j > 0 do begin
		if a[i, j] <> a[i-1, j] then begin
			Write(i, ' ');
			j := j-w[i]
		end;

		Dec(i)	
	end
end.