projects / qbasicapps.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
initial cammit
[qbasicapps.git] / math / divides.bas
1 INPUT "number:", a\r
2 \r
3 FOR b = 1 TO a\r
4   IF a / b = a \ b THEN PRINT b, "is"; a / b\r
5 NEXT b\r
6 SYSTEM\r
7 \r
Unnamed repository; edit this file 'description' to name the repository.