Разбиение натурального числа на 3 слагаемых

[Neitrosha]

смысл задачи-дано число, требуется разбить натуральное число на три слагаемых, причем чтобы они не повторялись, как пример-число 8-это 5+2+1
так-то пара идей есть, но как это реализовать?

так-то получается, что число A=b+c+d, все они Integer, и b<>c, b<>d, d<>c, но вот с самим кодом полные проблемы. Пытался сделать на основе обычного разбиения чисел-вообще ничего не получилось

[ZaRDaK]

b = a - 3
c = 2
d = 1

[Neitrosha]

да не то я имел в виду
программу для всех чисел, абсолютно для любых, чтобы разбивала на три слагаемых

8 я привел как пример
разбить натуральное число на три слагаемых, причем чтобы они не повторялись-вот это

[Kingdom_Reborn]

любое натуральное число N >= 6 можно представить как 1 + 2 + (N - 3)

[DESS]

b:=random(a-2);
c:=random(a-b);
d:=a-b-c;
if a=b then
надеюсь смысл понятен

[Neitrosha]

да, смысл понятен, задача так-то решена
но вопрос-а если вообще чтобы произвольные числа выводила? ну, то есть, число 262 - 100+101+61. чтобы выводило вообще произвольные числа. это вообще реально написать без подготовки? да и хотелось бы увидеть сам код программы, если кому-нибудь не сложно, просто интересно

[Kingdom_Reborn]

var
    x, a, b, c: Longint;
begin
    Randomize;
    ReadLn(x);
    a := 1 + Random(x div 4);
    b := a + 1 + Random(x div 3);
    c := x - a - b;
    while (c = a) or (c = b) do
    begin
      Inc(b);
      Dec(c);
    end;
    WriteLn(x, ' = ', a, ' + ', b, ' + ', c);
    ReadLn;
end.

[Neitrosha]

спасииибо)
и, как понимаю, нужно два Едита и один Баттон?
просто я полный новичок в программировании, а хочется хоть чему-то научиться

[Neitrosha]

и вбивать весь этот код, в принципе, нужно в баттон?

[Kingdom_Reborn]

я код немного подправил...

//////////////////////////////

В Delphi кидай на форму два Edit'a и одну кнопку, для кнопки пиши код:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, a, b, c, code: Integer;
begin
  Val(Edit1.Text, x, code);
  if code <> 0 then
  begin
    ShowMessage('Введите число');
    Exit;
  end;
  Randomize;
  a := 1 + Random(x div 4);
  b := a + 1 + Random(x div 3);
  c := x - a - b;
  while (c = a) or (c = b) do
  begin
    Inc(b);
    Dec(c);
  end;
  Edit2.Text := IntToStr(a) + ' + ' + IntToStr(b) + ' + ' + IntToStr(c);
end;

В Edit1 вводи число, жми на кнопку, и в Edit2 появится результат...