PRINT
PRINT "方程式 a x + b y = c の自然数解を探す"
INPUT PROMPT "自然数 a, b, c → ":a,b,c
PRINT
LET Q=INT(c/a)
LET W=INT(c/b)
FOR i=0 TO Q
   FOR j=0 TO W
      IF a*i+b*j=c THEN
         PRINT "x =";i;", y =";j;"  →   ";a;"* x +";b;"* y =";a*i+b*j
      END IF
   NEXT j
NEXT i
PRINT 
PRINT "終了 ( もし上欄が空白ならば 解なしです。）"
END



#####################################################################




PRINT
PRINT "方程式 a x + b y = c の自然解を探す"
INPUT PROMPT "自然数 a, b, c → ":a,b,c
PRINT
LET x=0
DO WHILE D=>0
   LET D=c-a*x
   LET E=MOD(D,b)
   IF E=0 THEN
      LET XX=x
      LET YY=D/b
      PRINT "x =";XX;", y =";YY;"  →   ";a;"* x +";b;"* y =";a*XX+b*YY
   END IF
   LET x=x+1
LOOP
PRINT 
PRINT "終了 ( もし上欄が空白ならば 解なしです。）"
END