0.0001是什么意思

program vijos_1041;
var i,j,k,ans:longint;
l,r,m,n:extended;
b:boolean;
begin
readln(l,r);
l:=l/100;
r:=r/100;
b:=true;
for i:=1 to 1000000 do
begin
if (abs(trunc(i*l+0.0001)-trunc(i*r-0.0001))>=1) and b then
begin
ans:=i;
b:=false;
end;
end;
writeln(ans);
end.
为什么要加上0.0001,不加就会错,只能得80分。

1 条评论

  • 1

信息

ID
1041
难度
6
分类
其他 | 数学 点击显示
标签
(无)
递交数
8246
已通过
2314
通过率
28%
被复制
10
上传者