Concursos públicos

Conforme a sintaxe e a semântica da linguagem Delphi, julgue os itens a seguir.

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 (Blt;gt;0) do begin if Odd(B ) then inc(Resultado); B := B shr 1; end; end;