PRINT
PRINT "１００円を用意する場合の数"
PRINT
PRINT " \100  \50  \10   \5   \1              総コイン数"
LET C=0
LET C100=0
LET C50=0
LET C10=0
LET C5=0
LET C1=0
FOR EN100=1 TO 0 STEP -1
   FOR EN50=2 TO 0 STEP -1
      FOR EN10=10 TO 0 STEP -1
         FOR EN5=20 TO 0 STEP -1
            FOR EN1=100 TO 0 STEP -1
               IF 100*EN100+50*EN50+10*EN10+5*EN5+EN1=100 THEN
                  LET C=C+1
                  LET C100=C100+EN100
                  LET C50=C50+EN50
                  LET C10=C10+EN10
                  LET C5=C5+EN5
                  LET C1=C1+EN1 
                  PRINT USING "#####":EN100;
                  PRINT USING "#####":EN50;
                  PRINT USING "#####":EN10;
                  PRINT USING "#####":EN5;
                  PRINT USING "#####":EN1;
                  PRINT "  ＝";100*EN100+50*EN50+10*EN10+5*EN5+EN1;"円";
                  PRINT "  ＝";
                  PRINT USING "###":EN100+EN50+EN10+EN5+EN1;
                  PRINT "個"
               END IF
            NEXT EN1
         NEXT EN5
      NEXT EN10
   NEXT EN50
NEXT EN100
PRINT
PRINT "以上、全部で";C;"通りです。"
PRINT
PRINT "１００円玉 ";
PRINT USING "#####":C100;
PRINT "個"
PRINT "  ５０円玉 ";
PRINT USING "#####":C50;
PRINT "個"
PRINT "  １０円玉 ";
PRINT USING "#####":C10;
PRINT "個"
PRINT "    ５円玉 ";
PRINT USING "#####":C5;
PRINT "個"
PRINT "    １円玉 ";
PRINT USING "#####":C1;
PRINT "個"
PRINT
PRINT "総額：";100*C100+50*C50+10*C10+5*C5+C1;"円"
END