blob: 5982cdf23dce6009c3354f9e0141c26a91c6b309 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{$packenum 2}
type
tenum = (ea,eb,ec,ed,ee,ef:=255);
tb = array[1..16] of byte;
const
res: array[1..6] of byte = (0,1,2,3,4,255);
var
a: bitpacked array[1..16] of tenum;
i: longint;
begin
writeln(sizeof(a));
a[1]:=ea;
a[2]:=eb;
a[3]:=ec;
a[6]:=ef;
a[5]:=ee;
a[4]:=ed;
for i := 1 to 6 do
begin writeln(tb(a)[i]);
if (tb(a)[i] <> res[i]) then
halt(1); end;
end.
|
