@pimsteenbergh/

BeautifulReasonableNoctule

QBasic

No description

fork
loading
main.bas
1
2
3
4
5
INPUT a
FOR x = 1 TO LEN(STR$(a))
  c=c*10+1
NEXT x
PRINT a MOD c = 0
QBasic (qb.js) Copyright (c) 2010 Steve Hanov