t_id
587
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
458580303 | 937366 | True | False | Successfully run |
Record count: 1
type ptchar=^tchar; tchar=packed record c : char; end; function inl(l:ptchar):ptchar; begin inc(l); inl:=l; end; var i : longint; j : ptchar; s : string; error : boolean; begin error:=false; s:='012345789'; j:=@s[1]; for i:=1to 8 do begin writeln(inl(j)^.c); If (inl(j)^.c<>s[i+1]) Then error:=true; inc(j); end; if error then begin writeln('Error!'); halt(1); end; end.