28 lines
577 B
Text
28 lines
577 B
Text
FUNCTION isgapful(n)
|
|
LET m = n
|
|
LET l = remainder(n,10)
|
|
DO WHILE (m >= 10)
|
|
LET m = INT(m/10)
|
|
LOOP
|
|
LET isgapful = (m*10)+l
|
|
END FUNCTION
|
|
|
|
SUB muestragapful (n,gaps)
|
|
LET inc = 0
|
|
PRINT
|
|
PRINT "First"; gaps; "gapful numbers >="; n
|
|
DO WHILE inc < gaps
|
|
IF remainder(n, isgapful(n)) = 0 THEN
|
|
PRINT ; n; " ";
|
|
LET inc = inc+1
|
|
END IF
|
|
LET n = n+1
|
|
LOOP
|
|
PRINT
|
|
END SUB
|
|
|
|
CALL muestragapful (100, 30)
|
|
CALL muestragapful (1000000, 15)
|
|
CALL muestragapful (1000000000, 10)
|
|
CALL muestragapful (7123, 25)
|
|
END
|