Data commit

Task/Disarium-numbers/PureBasic/disarium-numbers.basic

@@ -0,0 +1,31 @@
+Procedure isDisarium(n.i)
+  digitos.i = Len(Str(n))
+  suma.i = 0
+  x.i = n
+  While x <> 0
+    r.i = (x % 10)
+    suma + Pow(r, digitos)
+    digitos - 1
+    x / 10
+  Wend
+  If suma = n
+    ProcedureReturn #True
+  Else
+    ProcedureReturn #False
+  EndIf
+EndProcedure
+
+OpenConsole()
+limite.i = 19
+cont.i = 0
+n.i = 0
+PrintN("The first" + Str(limite) + " Disarium numbers are:")
+While cont < limite
+  If isDisarium(n)
+    Print(Str(n) + #TAB$)
+    cont + 1
+  EndIf
+  n + 1
+Wend
+Input()
+CloseConsole()