{VERSION 3 0 "IBM INTEL NT" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 
1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 }3 3 0 0 0 
0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1008 "# Nombre de fa\347
ons de donner 1 euro en pi\350ces de :\n# 1 euro, 50 cts, 20 cts, 10 c
ts, 5 cts, 2 cts, 1ct\n# M\351thode sioux !\n\ntemps:=time():\n\nR:=1:
   # Cas 100 = 1*100\nR:=R+1: # Cas 100 = 2*50\n\nfor i1 from 0 to 1 d
o                                                        # Pi\350ces d
e 50\n     for i2 from 0 to 5-3*i1 do                                 \+
             # Pi\350ces de 20\n          for i3 from 0 to 10-5*i1-2*i
2 do                                   # Pi\350ces de 10\n            \+
   for i4 from 0 to 20-10*i1-4*i2-2*i3 do                        # Pi
\350ces de 5\n                    for i5 from 0 to 50-25*i1-10*i2-5*i3
 do                  # Pi\350ces de 2\n                         for i6
 from 0 to 100-50*i1-20*i2-10*i3-5*i4-2*i5 do # Pi\350ces de 1\n      \+
                        if 50*i1+20*i2+10*i3+5*i4+2*i5+1*i6=100\n     \+
                         then R:=R+1:\n                              f
i:\n                         od:\n                    od:\n           \+
    od:\n          od:\n     od:\nod:\nprint(R);\ntime()-temps;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"%jX" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#$\"$8$!\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }