Cod sursa(job #1233272)
Utilizator | 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.