Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.