diff options
Diffstat (limited to 'boca-1.5.2/doc/tests/fontes/bits-compile.pas')
| -rw-r--r-- | boca-1.5.2/doc/tests/fontes/bits-compile.pas | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/boca-1.5.2/doc/tests/fontes/bits-compile.pas b/boca-1.5.2/doc/tests/fontes/bits-compile.pas deleted file mode 100644 index ad2765f..0000000 --- a/boca-1.5.2/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. |