From be2491b093b1f0ca430bede679ecbb670041e483 Mon Sep 17 00:00:00 2001 From: cassio Date: Tue, 2 Jul 2013 09:46:45 +0400 Subject: restructuring of boca's git --- doc/tests/fontes/bits-runtime.pas | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 doc/tests/fontes/bits-runtime.pas (limited to 'doc/tests/fontes/bits-runtime.pas') diff --git a/doc/tests/fontes/bits-runtime.pas b/doc/tests/fontes/bits-runtime.pas new file mode 100644 index 0000000..ed496c0 --- /dev/null +++ b/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