Помогите решить задачу на циклы на Паскале.

[Evgo]

Напечатать все различные разбиения числа N на три натуральных слагаемых.

[Evgo]

Недоработанная программа выглядит так:
Program zadacha3_4;
uses crt;
Var
N,a,b,c,i:integer;
Begin
clrscr;
Writeln('Vvedite chislo N');
Readln(N);
a:=0; b:=0; c:=0;
repeat
for a:=1 to n-2 do
for b:=1 to n-a-1 do
if c=n-a-b then
writeln('Variant razbieniya:',a,',',b,',',c,' ')
else c:=c+1;
until a+b+c=n;
Readln;
end.
Помогите доработатьб чтоб программа выдавала все варианты разбиения.

[NSvirus]

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

[Evgo]

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

[NSvirus]

кажется так:

uses crt;
 var
 N,a,b,c:integer;
 begin
  clrscr;
  readln(N);
  for a:=1 to n-2 do
   for b:=1 to n-a-1 do
    begin
     c:=n-a-b;
    writeln('Variant:',a,',',b,',',c);
    end;
    readln;
 end.

[NSvirus]

только здесь ноль не учитывается, если нужен-сделай сам

[__STDC__]

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

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

если рассматривать кол-во разбиений, в таком случае оно будет 2^19... однако если внимательно прочитать условие, можно заметить что кол-во слагаемых ограничено 3...

На самом деле для 20 будет всего лишь 9 разбиений.. с учетом того, что разбиения (10,4,6) и (6,10,4) к примеру равнозначны...

программа:

var
	i,num,a,b,c:byte;
begin
	a := 1; b := 0; c := 0;
	readln(num);
	repeat
		for i:=1 to a do begin
			inc(b);
			b := 1;
			c := num - a - b;
		end;
		writeln(a,' ',b,' ',c);
		inc(a);
	until a > num div 2;
	readln;
end.

для четных чисел целесообразно сделать num div 2 - 1... а лучше добавить проверку на четность и исходя из этого вычислять предел.. или так

	until a > num div 2 - (1 - num mod 2);

[NSvirus]

На самом деле для 20 будет всего лишь 9 разбиений.. с учетом того, что разбиения (10,4,6) и (6,10,4) к примеру равнозначны...

он просил все варианты, вот они предоставлены.
Разве не так?
------------------добавлено---------
Туплю, хотя судя по его коду так и нужно делать..,

[__STDC__]

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

он просил все варианты, вот они предоставлены.
Разве не так?

нет...

Разбие́ние числа́ n — это представление n в виде суммы положительных целых чисел, называемых частями. При этом порядок следования частей не учитывается (в отличие от композиций), то есть разбиения, отличающиеся только порядком частей, считаются равными.

(с) Википедия.

[Evgo]

Этот код выводит ошибку.