From 3a5f406ff59a05c0eddda191127d58b39cb8049b Mon Sep 17 00:00:00 2001 From: cassiopc Date: Wed, 24 Oct 2012 09:56:07 +0200 Subject: open dir for 1.5.2. I still must split devel and master in different branches to properly use git... --- boca-1.5.2/doc/tests/fontes/bits-outputformat.pas | 27 +++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 boca-1.5.2/doc/tests/fontes/bits-outputformat.pas (limited to 'boca-1.5.2/doc/tests/fontes/bits-outputformat.pas') diff --git a/boca-1.5.2/doc/tests/fontes/bits-outputformat.pas b/boca-1.5.2/doc/tests/fontes/bits-outputformat.pas new file mode 100644 index 0000000..e5094d2 --- /dev/null +++ b/boca-1.5.2/doc/tests/fontes/bits-outputformat.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('Instacia '); + inst := inst + 1; + writeln(inst); + writeln(i*n); + writeln() + end +end. -- cgit v1.2.3