PRINT
PRINT "筆算＿２桁の数で割る"
PRINT
INPUT PROMPT "割られる４桁以上の数？ ":Yy
INPUT PROMPT "割る２桁の数？ ":x
PRINT
DIM A$(10),Aa(10),B(10),Q(10)
MAT Aa=ZER
LET y$=STR$(Yy)
LET z=LEN(y$)
LET A$(1)=y$(1:2)
LET Aa(1)=VAL(A$(1))
FOR i=2 TO z-1
   LET A$(i)=y$(i+1:i+1)
   LET Aa(i)=VAL(A$(i))
NEXT i
IF Aa(1) < x THEN
   LET B(1)=0
   LET Q(1)=Aa(1)*10
ELSE
   FOR i=9 TO 1 STEP -1
      IF x*i =< Aa(1) THEN
         LET B(1)=i
         LET Q(1)=(Aa(1)-x*i)*10
         EXIT FOR
      END IF
   NEXT i
END IF
FOR i=2 TO z-1
   IF Aa(i)+Q(i-1) < x THEN
      LET B(i)=0
      LET Q(i)=(Aa(i)+Q(i-1))*10
   ELSE
      FOR j=9 TO 1 STEP -1
         IF x*j =< Aa(i)+Q(i-1) THEN
            LET B(i)=j
            LET Q(i)=(Aa(i)+Q(i-1)-x*j)*10
            EXIT FOR
         END IF
      NEXT j
   END IF
NEXT i
LET S=0
FOR i=1 TO z-1
   LET S=S+B(i)*10^(z-1-i)
NEXT i
PRINT "   ";Yy;"÷";x;"＝ ";S;" あまり";Q(z-1)/10
PRINT
END