Data commit

Task/Square-but-not-cube/PureBasic/square-but-not-cube.basic

@@ -0,0 +1,16 @@
+OpenConsole()
+lv=1
+Repeat
+  s+1 : s2=s*s : Flg=#True
+  For i=lv To s
+    If s2=i*i*i
+      tx3$+Space(Len(tx2$)-Len(tx3$))+Str(s2)
+      tx2$+Space(Len(Str(s2))+1)
+      Flg=#False : lv=i : c-1 : Break
+    EndIf
+  Next
+  If Flg : tx2$+Str(s2)+" " : EndIf
+  c+1
+Until c>=30
+PrintN("s²   : "+tx2$) : PrintN("s²&s³: "+tx3$)
+Input()