Question

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

Answer 1

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.