Cod sursa(job #1233272)

Utilizator robertdx3Robert robertdx3 Data 25 septembrie 2014 04:30:58
Problema Loto Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.77 kb
program loto;

var f : text;
    n,i,j,a,b,c,d,e,g : byte;
    s,suma,p : longint;
    v : array[0..101] of longint;
begin
    assign(f,'loto.in'); reset(f);
    readln(f,n,s);
    for i := 1 to n do
        read(f,v[i]);
    close(f);

    assign(f,'loto.out'); rewrite(f);

    for a := 1 to n do
        for b := 1 to n do
            for c := 1 to n do
                for d := 1 to n do
                    for e := 1 to n do
                        for g := 1 to n do
                            if v[a]+v[b]+v[c]+v[d]+v[e]+v[g] = s then begin
                                write(f,v[a],' ',v[b],' ',v[c],' ',v[d],' ',v[e],' ',v[g]);
                                close(f);
                                exit;
                                end;
end.