init

1 files changed, 27 insertions, 0 deletions

diff --git a/boca-1.5.0/doc/tests/fontes/bits-runtime.pas b/boca-1.5.0/doc/tests/fontes/bits-runtime.pas
new file mode 100644
index 0000000..ed496c0
--- /dev/null
+++ b/boca-1.5.0/doc/tests/fontes/bits-runtime.pas
@@ -0,0 +1,27 @@
+program bits;
+var i, inst, max, n: Longint;
+    v: array[0..1] of Longint;
+begin
+  while true do
+  begin
+    read(n);
+    if n=0 then break;
+    max := 1;
+    for i:=0 to n-1 do
+    begin
+      read(v[i]);
+      if v[i]>max then max:=v[i]
+    end;
+    i:=0;
+    while max>0 do
+    begin
+      max := max div 2;
+      i := i + 1
+    end;
+    write('Instancia ');
+    inst := inst + 1;
+    writeln(inst);
+    writeln(i*n);
+    writeln()
+  end
+end.