Data commit

Task/Pancake-numbers/FreeBASIC/pancake-numbers.basic

@@ -0,0 +1,23 @@
+Dim As Integer num_pancakes = 20
+Dim As Integer i, j, c = 0, n
+
+Function pancake(n As Integer) As Integer
+    Dim As Integer gap = 2, sum = 2, adj = -1
+    While sum < n
+        adj += 1
+        gap = (gap * 2) - 1
+        sum += gap
+    Wend
+    Return n + adj
+End Function
+
+For i = 0 To 3
+    For j = 1 To 5
+        n = (i * 5) + j
+        c += 1
+        Print Using "p(##) = ##  "; n; pancake(n);
+        If c Mod 5 = 0 Then Print
+    Next j
+Next i
+
+Sleep