REM 有理数モードで実行

REM　　エジプト式分数を求めるプログラムです。十進BASIC使用。
INPUT n,m
LET b=n/m

LET t=0
DIM a(200)
FOR i=2 TO 100000
LET c=b-1/i
IF c<=0 THEN GOTO 300

LET t=t+1
LET a(t)=1/i
IF numer(c)=1 THEN LET t=t+1
IF numer(c)=1 THEN LET a(t)=c
IF numer(c)=1 THEN GOTO 100

LET b=c
GOTO 300
100

LET f$=""
FOR j=1 TO t
LET f$=f$ & "+" & STR$(a(j))
NEXT J
PRINT f$
STOP

300
NEXT I
END