Три человека должны поделить между собой 21 бочонок - Pascal ABC

Формулировка задачи:

Три торговца должны поделить между собой 21 бочонок из которых 7 бочонков полных кваса, 7 полных на половину и 7 пустых. вопрос: как они могут поделиться так,чтобы каждый имел одинаковое количество кваса и одинаковое количество бочонков,причем переливать квас нельзя.

Решение задачи: «Три человека должны поделить между собой 21 бочонок»

Листинг программы

var i,j,k,p,s1,s2,s3:integer;
begin
s1:=0;
s2:=0;
s3:=0;
p:=0;
for i:=1 to 3 do
for j:=1 to 3 do
for k:=1 to 3 do
if (i+j+k=7)and(j+2*k=7) then
 begin
  inc(p);
  writeln(p,') пустых=',i:2,' половина=',j:2,' полных=',k:2);
  s1:=s1+i;
  s2:=s2+j;
  s3:=s3+k;
 end;
if p<3 then writeln('3) пустых=',7-s1:2,' половина=',7-s2:2,' полных=',7-s3:2)
end.

Объяснение кода листинга программы

Этот код написан на языке Pascal ABC и предназначен для разделения 21 бочонка между тремя людьми. Переменные в коде имеют следующие значения и названия:

i, j, k - переменные, которые используются в трех вложенных циклах для перебора всех возможных комбинаций трех человек.
s1, s2, s3 - переменные, которые используются для подсчета количества пустых, половины и полных бочонков соответственно.
p - переменная, которая увеличивается каждый раз, когда находится подходящая комбинация.
writeln - функция, которая выводит информацию о количестве пустых, половины и полных бочонков на экран.
inc - функция, которая увеличивает значение переменной p на единицу.
if - конструкция, которая проверяет условие и выполняет соответствующий блок кода.
end - конец блока if. В общем, код перебирает все возможные комбинации трех человек и проверяет, соответствует ли каждая комбинация условию (i+j+k=7 и j+2*k=7). Если да, то увеличивается значение переменной p, выводится информация о количестве пустых, половины и полных бочонков, а также обновляется значение каждой из переменных s1, s2 и s3. Если комбинация не соответствует условию, то выводится информация о том, сколько пустых бочонков осталось. В конце кода выводится информация о количестве пустых бочонков, если p меньше трех.