t_id
513
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525454199 | 948187 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0340.pp } { } {$packenum 1} type t = (a,b,c,d,e); const arr: array[0..4] of t = (a,b,c,d,e); var x: byte; begin x := 0; writeln(ord(arr[x]),' ',ord(arr[x+1]),' ',ord(arr[x+2]),' ',ord(arr[x+3]),' ',ord(arr[x+4])); for x:=0 to 4 do if ord(arr[x])<>x then begin writeln('error in {$packenum 1}'); halt(1); end; end.