Matematické Fórum

Skrytý text:
program mince;
const druhu=100;
var minc:array[1..druhu,1..2]of integer;
pocty:array[1..druhu]of integer; a,b,d,castka:integer;

procedure generuj(castka,x:integer);
var j,z:integer;
begin
for j:=minc[x,2] downto 0 do
        begin
        if minc[x,1]*j <= castka then
                begin
                pocty[x]:=j;
                if x=d then
                        begin
                        if (castka=j*minc[x,1]) then
                                begin
                                for z:=1 to d do
                                        begin
                                        write(minc[z,1],'(',pocty[z],')');
                                        end;
                                writeln;
                                end;
                        end
                 else    begin
                         generuj(castka-j*minc[x,1],x+1);
                         end;
                end;
        end;
end;

begin
b:=1;
readln(d);
while b<=d do
        begin
        read(a);
        minc[b,1]:=a;
        minc[b,2]:=MAXINT;
        inc(b);
        end;
readln(castka);
generuj(castka,1);
readln;
end.