Questão de Informática — TRT - 10¬ REGI+O (DF e TO) — 2004 — Diversas

O código a seguir conta o número de bits, valor armazenado na variável Resultado, de um determinado número de bytes da variável B. function ContaBits(B : byte) : byte; begin Resultado := 0; while (B<>0) do begin if Odd(B ) then inc(Resultado); B := B shr 1; end; end;