Program gt;
var a,b,c,k:integer;
begin
k:=0;
for a:=0 to 12 do
for b:=0 to 10 do
for c:=0 to 8 do
if(a*15+b*17+c*21=185)then begin
k:=k+1;
writeln(a,' ',b,' ',c);
end;
writeln(k,'-кол-во способов');
end.
185/15=12(приблеженно)
185/17=10
185/21=8
т.е 185 div 21=8 ..
выбераем все случаи и находим кол-во
так как больше 12 мастика по 15 кг нельзя(будет >185)
и 10 по 17 и 8 по 21 то перечислим случаи и найдем решение где выполняется все условие