Pascal: 48kg furik a niekolko zavazi roznej vahy

Mam za ulohu naplnit furik s nosnostou 48kg zavazim.
Zavazia su: 4 x 18kg
5 x 14kg
2 x 11kg
4 x 9kg
3 x 6kg

1) vypis vsetky mozne kombinacie
2) optimalne zaplnenie.

Viem to urobit iba tak drtivo - skoro rucne, ale chcelo by to nejaky impulz ako to vymysliet lepsie.... ma niekto nejaky napad? DAKUJEM VELMI PEKNE!!

uses crt;
var i,j,k,l,m:integer;
procedure vypis;
begin
if i<>0 then writeln(i,' x 18 kg');
if j<>0 then writeln(j,' x 14 kg');
if k<>0 then writeln(k,' x 11 kg');
if l<>0 then writeln(l, ' x 9 kg');
if l<>0 then writeln(m,' x 6 kg');
writeln;
end;
begin
for i:=0 to 4 do
for j:=0 to 5 do
for k:=0 to 2 do
for l:=0 to 4 do
for m:=0 to 3 do
if 18*i+14*j+11*k+9*l+6*m=48 then vypis;
readln;
end.

Ak si myslel tym drtivo-skoro rucne toto, tak prepac.
Tomu optimalnemu zaplneniu som nepochopil.

Optimálnym zaplnením je myslené to, aby sa použil čo najmenší počet závaží.

uses crt;
var i,j,k,l,m,pocet:integer;
s:array[1..5] of integer;
procedure vypis;
begin
if i<>0 then writeln(i,' x 18 kg');
if j<>0 then writeln(j,' x 14 kg');
if k<>0 then writeln(k,' x 11 kg');
if l<>0 then writeln(l, ' x 9 kg');
if m<>0 then writeln(m,' x 6 kg');
writeln;
if pocet>i+j+k+l+m then begin
pocet:=i+j+k+l+m;
s[1]:=i; s[2]:=j; s[3]:=k; s[4]:=l; s[5]:=m;
end;
end;
begin
pocet:=20;
for i:=0 to 4 do
for j:=0 to 5 do
for k:=0 to 2 do
for l:=0 to 4 do
for m:=0 to 3 do
if 18*i+14*j+11*k+9*l+6*m=48 then vypis;
writeln('Optimum : ',pocet,' zavazi.');
writeln('napriklad: ');
i:=s[1]; j:=s[2]; k:=[3]; l:=s[4]; m:=s[5];
vypis;
readln;
end.

Dá sa to urobiť oveľa elegantnejšie, ale keďže predpokladám, že ide o semestrálnu prácu nenapíšem sem riešenie (aby náhodou neboli dve rovnaké).

Toto ma sluzit ako semestralna praca? Na akej skole?
Ked bude po termine, hod sem kod ak mozes.

Neviem, či je to semestrálna práca, ale na jednej škole je veľmi podobná semestrálna práca (algoritmus je tam úplne rovnaký).

Je to zapoctovka.. v pascale nie som doma a uz sa s nim ani nestretnem (v skole) tak... inak, myslim ze nikto nie je taky blby aby si to hodil odslovadoslova. mimochodom, co som nahanal kamosov tak jeden mal takmer toto iste minuly rok, a dalsi mal toto iste ale s mincami Cize princip je taky isty na viac skolach

Inak dakujem prispievatelom, si to skomolim nejako dokopy (nebavi ma drag&drop)

mozem sa spytat co je to za skolu na ktorej je toto ako zapoctovka??

no zrejme nejaké ucm v bystrici