t_id
381
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526061416 | 948291 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0163.pp } { missing <= and >= operators for sets. OK 0.99.11 (JM) } Program test; { shows missing <= and >= for sets } Type Days = (Monday,tuesday,wednesday,thursday,friday,saturday,sunday); Var FreeDays,Weekend : set of days; begin Weekend := [saturday, sunday]; FreeDays := [friday, saturday, sunday]; If (Weekend <= Freedays) then Writeln ('Free in weekend !'); end.