напечатать все различные разбиения числа n на 3 - вопрос №39058033 от pomogite361 12.12.2020 01:51

Question

Информатика: напечатать все различные разбиения числа n на 3 натуральных слагаемых. заранее .

pomogite361 · Answer

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.