t_id
1506
t_adddate
2005/03/05
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022148004 | 1027281 | True | False | Successfully run |
Record count: 1
program prec; uses SysUtils; var i:Integer; v: Double; s: string; begin v := 1.0000000000001; for i := 1 to 20 do begin s := FloatToStrF(v, ffGeneral, i, 0); WriteLn(i, ' ', s); if (i < 13) then begin if (s <> '1') then begin writeln('error'); halt(1); end; end else if (s <> '1.0000000000001') then begin writeln('error'); halt(1); end; end; end.