Anonymous user
Arithmetic/Rational: Difference between revisions
m
→{{header|M2000 Interpreter}}
No edit summary |
|||
Line 2,500:
divcand.numerator=onediv.denominator
sum=sum+onediv+divcand
if sum.real=1 then Print sum.denominator;" is perfect" : Goto ExitFor▼
}
}
sum.numerator=1
}
|