fork download
copy 
  1. type
  2.   TUInt4    = $0 .. $F;                           // 4 bits
  3.   TUInt4Arr = bitpacked array [1 .. 8] of TUInt4; // 32 bits (8 * 4 bits)
  4. begin
  5.   WriteLn('Cell:  ', BitSizeOf(TUInt4Arr[1]), ' bits');
  6.   WriteLn('Array: ', BitSizeOf(TUInt4Arr),    ' bits');
  7. end.
Success #stdin #stdout 0s 5300KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Cell:  4 bits
Array: 32 bits
https://ideone.com/BYhRvL
language:
Pascal (fpc 3.0.4)
created:
1 year ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!