From 866658cded5b92ddb2681dead1ebaf111d712fcc Mon Sep 17 00:00:00 2001 From: cassiopc Date: Mon, 6 Aug 2012 11:09:10 +0200 Subject: init --- boca-1.5.0/doc/tests/fontes/bits-runtime.pas | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 boca-1.5.0/doc/tests/fontes/bits-runtime.pas (limited to 'boca-1.5.0/doc/tests/fontes/bits-runtime.pas') 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. -- cgit v1.2.3