From a9aa438ea0558eb0044cf1e54a9190ddb41b65e5 Mon Sep 17 00:00:00 2001 From: cassio Date: Tue, 2 Jul 2013 09:44:46 +0400 Subject: restructuring of boca's git --- boca-1.5.0/doc/tests/fontes/bits-runtime.pas | 27 --------------------------- 1 file changed, 27 deletions(-) delete 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 deleted file mode 100644 index ed496c0..0000000 --- a/boca-1.5.0/doc/tests/fontes/bits-runtime.pas +++ /dev/null @@ -1,27 +0,0 @@ -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