31 lines
611 B
Plaintext
31 lines
611 B
Plaintext
Procedure.b isGapNum(n.i)
|
|
n1.i=n%10
|
|
n2.i=Val(Left(Str(n),1))
|
|
If n%(n2*10+n1)=0
|
|
ProcedureReturn #True
|
|
Else
|
|
ProcedureReturn #False
|
|
EndIf
|
|
EndProcedure
|
|
|
|
Procedure PutGapNum(start.i,rep.i,lfi.i=10)
|
|
n.i=start
|
|
While rep
|
|
If isGapNum(n)
|
|
Print(Str(n)+" ")
|
|
rep-1
|
|
If rep%lfi=0 : PrintN("") : EndIf
|
|
EndIf
|
|
n+1
|
|
Wend
|
|
EndProcedure
|
|
|
|
OpenConsole()
|
|
PrintN("First 30 gapful numbers ≥ 100:")
|
|
PutGapNum(100,30)
|
|
PrintN(~"\nFirst 15 gapful numbers ≥ 1,000,000:")
|
|
PutGapNum(1000000,15,5)
|
|
PrintN(~"\nFirst 10 gapful numbers ≥ 1,000,000,000:")
|
|
PutGapNum(1000000000,10,5)
|
|
Input()
|