【問題4】aがbの倍数であるか判定するプログラム
[プログラム]
10 INPUT PROMPT "a,b=":A,B 20 IF ______________ THEN PRINT "mul" ELSE PRINT "non-mul" 30 END
[設問]
空欄を埋めてプログラムを完成させなさい。ただし、ここでは文字数の都合からmultiple(倍数)を略してmulとした。
[ヒント]
いくつもの解法があります。
- aがbの倍数である。⇔ aはbで割り切れる。⇔ aをbで割った余りは0である。
- aがbの倍数である。⇔ aはbで割り切れる。⇔ a/bとa/bの整数部分は等しい。
[解答]
1. aがbの倍数である。⇔ aをbで割った余りは0である。
10 INPUT PROMPT "a,b=":A,B 20 IF A-B*INT(A/B)=0 THEN PRINT "mul" ELSE PRINT "non-mul" 30 END
2. aがbの倍数である。⇔ a/bとa/bの整数部分は等しい。
10 INPUT PROMPT "a,b=":A,B 20 IF A/B=INT(A/B) THEN PRINT "mul" ELSE PRINT "non-mul" 30 END