inclusion of dir 1.5.1 for boca

1 files changed, 27 insertions, 0 deletions

diff --git a/boca-1.5.1/doc/tests/fontes/bits-incorrect.pas b/boca-1.5.1/doc/tests/fontes/bits-incorrect.pas
new file mode 100644
index 0000000..7dbcd4b
--- /dev/null
+++ b/boca-1.5.1/doc/tests/fontes/bits-incorrect.pas
@@ -0,0 +1,27 @@
+program bits;
+var i, j, n, max, inst: Longint;
+begin
+  inst:=0;
+  while true do
+  begin
+    read(n);
+    if n=0 then break;
+    max:=1;
+    for i:=0 to n-1 do
+    begin
+      read(j);
+      if j>max then max:=j
+    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);
+    writeln()
+  end
+end.