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

[__STDC__]

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

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

мой? какую?

[Evgo]

код NSvirus

[NSvirus]

не может быть. цитируй

[Evgo]

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

не может быть. цитируй

Он не разделяет число на сумму трех слагаемых, код не содержит достаточно информации об изменении двух натуральных слагаемых.

[NSvirus]

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

Он не разделяет число на сумму трех слагаемых, код не содержит достаточно информации об изменении двух натуральных слагаемых.

>>Если преподаватель не придерется к тому, что писал: __STDC_ то используй код.

Ошибку цитируй.
У меня ничего не выскакивает.
значения перебираются все, за исключение 0.

[__STDC__]

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

>>Если преподаватель не придерется к тому, что писал: __STDC_...

с чего бы это ему придираться? =) Хотя вот с радианами придрался же... преподы они такие.. уух) Но, исходя из теории, мое решение верное. Хотя ваше тоже работает, не знаю что не устроило топик стартера...

[Evgo]

При использовании програмного кода, предложенного вами отображаются не все варианты разбиения. Что делать?

[__STDC__]

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

При использовании програмного кода, предложенного вами отображаются не все варианты разбиения. Что делать?

при использовании моего? все вроде... какие не отображаются?

[Evgo]

При разбиении чисел начиная с 6, некоторые разбиения не отображаются.

[__STDC__]

а, ну да... там глупо получается.. надо чуть поменять.. типа такого

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