t_id
1450
t_adddate
2005/01/17
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
514588624 | 946429 | True | False | Successfully run |
Record count: 1
{$R+} function d(a,b:string):Integer; begin d := Ord(a[1])-Ord(b[1]); end; var c: SmallInt; ch : char; begin ch:='A'; c := Byte(ch)-Byte('B'); WriteLn(c); WriteLn(d('a','b')); end.