PRINT
PRINT "＜ 百五減算 ＞"
PRINT
PRINT "   105 ＝ 7 × 5 × 3"
PRINT
PRINT
INPUT PROMPT "３桁以上の自然数を入力してください。 ":n
PRINT
LET a=MOD(n,3)
PRINT "その数を３で割った余り： a ＝";a
PRINT
LET b=MOD(n,5)
PRINT "その数を５で割った余り： b ＝";b
PRINT
LET c=MOD(n,7)
PRINT "その数を７で割った余り： c ＝";c
PRINT
PRINT
LET Y=70*a+21*b+15*c
PRINT " 70 * a + 21 * b + 15 * c ＝";70*a+21*b+15*c
PRINT
PRINT "   ";Y;"を３で割った余り ＝";MOD(Y,3);"   ";Y;"を５で割った余り ＝";MOD(Y,5);"   ";Y;"を７で割った余り ＝";MOD(Y,7)
PRINT
DO WHILE Y>105
   LET Y=Y-105
   PRINT Y+105;"から 105 を引くと、";Y
   PRINT
   PRINT "   ";Y;"を３で割った余り ＝";MOD(Y,3);"  ";Y;"を５で割った余り ＝";MOD(Y,5);"  ";Y;"を７で割った余り ＝";MOD(Y,7)
   PRINT
LOOP
PRINT
PRINT
PRINT
INPUT PROMPT "あなたの歳をこっそりと入力してください。 ":n
PRINT
LET a=MOD(n,3)
PRINT "あなたの歳を３で割った余りを教えて下さい： a ＝";a
PRINT
LET b=MOD(n,5)
PRINT "あなたの歳を５で割った余りを教えて下さい： b ＝";b
PRINT
LET c=MOD(n,7)
PRINT "あなたの歳を７で割った余りを教えて下さい： c ＝";c
PRINT
PRINT
LET Y=70*a+21*b+15*c
PRINT " 70 * a + 21 * b + 15 * c ＝";Y
PRINT
DO WHILE Y>105
   LET Y=Y-105
   PRINT Y+105;"から 105 を引くと ";Y
   PRINT
LOOP
PRINT " したがって、あなたは";Y;"歳ですね。"
PRINT
END