1   REM センター試験1997数学B追試
2   REM Microsoft BASIC互換モードで実行してください 
110 INPUT "n=";N
120 INPUT "f=";F
130 D=0
140 FOR I=1 TO N
150   X=I:C=0
160   IF X=INT(X/F)*F THEN X=INT(X/F) :C=C+1 :GOTO 160
170   IF C>0 THEN PRINT C
180   D=D+C
190 NEXT I
200 PRINT "d=";D
210 END

