t_id
518
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1021971609 | 1027256 | True | False | Successfully run |
Record count: 1
{ %VERSION=1.1 } { Old file: tbs0353.pp } { } Var I : Int64; j : longint; K : Int64; err : boolean; begin I:=2; Writeln(i); K:=1 shl 62; For j:=1 to 61 do begin I:=I*2; If I/k*100>100 then begin Writeln('Error'); err:=true; end else Writeln(j:2,': ',i:20,' ',i div 1024:20,' ',(i/k*100):4:1); end; if err then halt(1); end.