Помогите с паскалем.
Напечатать все различные разбиения числа N на 3 натуральных слагаемых.
Заранее спасибо.
Ответы
Ответ дал:
0
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.
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.
zaxar2308:
спасибо
Вас заинтересует
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
7 лет назад