Вычислить количество способов, которыми можно разместить 7 одинаковых карандашей в 3 различных ящиках?

@radziuk-maksim · Регистрация: 05.01.2012

@Chertenok_n_13 · 06.01.2012, 00:38

так-с... значит так, если учитывать что в коробке должен находиться хотя бы 1 карандаш то вот:

Pascal

program m_9;
 
uses crt;
const n=7;
var a,b,c,d,e,f,g:integer;
begin
clrscr;
writeln('1-ja korobka | 2-ja korobka | 3-ja korobka');
for a:=0 to 7 do
for b:=0 to 7 do
for c:=0 to 7 do
if ((a+b+c) = n)and (a<>0) and (b<>0) and (c<>0) then writeln(a:7,b:14,c:14);
readln;
end.

если можно чтобы в коробке не было ни одного карандаша, то вот:

Pascal

program m_9;
 
uses crt;
const n=7;
var a,b,c,d,e,f,g:integer;
begin
clrscr;
writeln('1-ja korobka | 2-ja korobka | 3-ja korobka');
for a:=0 to 7 do
for b:=0 to 7 do
for c:=0 to 7 do
if ((a+b+c) = n) then writeln(a:7,b:14,c:14);
readln;
end.

но во втором варианте получается слишком много вариантов... поэтому если не обязательно выводить в столбик, то можно писать так
(кол-во в первой, кол-во во второй, кол-во в в третьей) и так несколько скобок.
тогда будет так:

Pascal

program m_9;
 
uses crt;
const n=7;
var a,b,c,d,e,f,g:integer;
begin
clrscr;
for a:=0 to 7 do
for b:=0 to 7 do
for c:=0 to 7 do
if ((a+b+c) = n) then write('(',a,',',b,',',c,') ');
 
readln;
end.

@radziuk-maksim 1 / 1 / 0 Регистрация: 05.01.2012 Сообщений: 41
		1
	Вычислить количество способов, которыми можно разместить 7 одинаковых карандашей в 3 различных ящиках? 05.01.2012, 18:29. Показов 1958. Ответов 1 Метки нет (Все метки) Вычислить количество способов, которыми можно разместить 7 одинаковых карандашей в 3 различных ящиках? 0

Опции темы

Вычислить количество способов, которыми можно разместить 7 одинаковых карандашей в 3 различных ящиках?

Решение