diff options
| author | cassio <cassiopc@gmail.com> | 2013-07-02 05:44:46 +0000 |
|---|---|---|
| committer | cassio <cassiopc@gmail.com> | 2013-07-02 05:44:46 +0000 |
| commit | a9aa438ea0558eb0044cf1e54a9190ddb41b65e5 (patch) | |
| tree | 4b825dc642cb6eb9a060e54bf8d69288fbee4904 /boca-1.5.0/doc/tests/fontes/bits-runtime.pas | |
| parent | 94caebadeb66ad7b453d4258a796979cafb758b0 (diff) | |
| download | boca-a9aa438ea0558eb0044cf1e54a9190ddb41b65e5.tar.gz boca-a9aa438ea0558eb0044cf1e54a9190ddb41b65e5.zip | |
restructuring of boca's git
Diffstat (limited to 'boca-1.5.0/doc/tests/fontes/bits-runtime.pas')
| -rw-r--r-- | boca-1.5.0/doc/tests/fontes/bits-runtime.pas | 27 |
1 files changed, 0 insertions, 27 deletions
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. |