aboutsummaryrefslogtreecommitdiff
path: root/boca-1.5.2/doc/tests/fontes/bits-yes.pas
diff options
context:
space:
mode:
Diffstat (limited to 'boca-1.5.2/doc/tests/fontes/bits-yes.pas')
-rw-r--r--boca-1.5.2/doc/tests/fontes/bits-yes.pas27
1 files changed, 0 insertions, 27 deletions
diff --git a/boca-1.5.2/doc/tests/fontes/bits-yes.pas b/boca-1.5.2/doc/tests/fontes/bits-yes.pas
deleted file mode 100644
index 0970c43..0000000
--- a/boca-1.5.2/doc/tests/fontes/bits-yes.pas
+++ /dev/null
@@ -1,27 +0,0 @@
-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*n);
- writeln()
- end
-end.