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.1/doc/tests/fontes/bits-compile.pas | 27 --------------------------- 1 file changed, 27 deletions(-) delete mode 100644 boca-1.5.1/doc/tests/fontes/bits-compile.pas (limited to 'boca-1.5.1/doc/tests/fontes/bits-compile.pas') diff --git a/boca-1.5.1/doc/tests/fontes/bits-compile.pas b/boca-1.5.1/doc/tests/fontes/bits-compile.pas deleted file mode 100644 index ad2765f..0000000 --- a/boca-1.5.1/doc/tests/fontes/bits-compile.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. -- cgit v1.2.3