aboutsummaryrefslogtreecommitdiff
path: root/boca-1.5.0/doc/tests/fontes/bits-runtime.pas
diff options
context:
space:
mode:
authorcassio <cassiopc@gmail.com>2013-07-02 05:44:46 +0000
committercassio <cassiopc@gmail.com>2013-07-02 05:44:46 +0000
commita9aa438ea0558eb0044cf1e54a9190ddb41b65e5 (patch)
tree4b825dc642cb6eb9a060e54bf8d69288fbee4904 /boca-1.5.0/doc/tests/fontes/bits-runtime.pas
parent94caebadeb66ad7b453d4258a796979cafb758b0 (diff)
downloadboca-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.pas27
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.