记录编号 484870 评测结果 AAAAAAAAAA
题目名称 [NOI 2000]瓷片项链 最终得分 100
用户昵称 Gravatar李宴彬 是否通过 通过
代码语言 Pascal 运行时间 0.016 s
提交时间 2018-01-27 17:36:36 内存使用 0.08 MiB
显示代码纯文本
program wto;
var 
  a,b,s,c:double ;
  best:longint;
begin
    assign(input,'ring.in');
    reset(input);
    assign(output,'ring.out');
    rewrite(output);
    read(a,b);
    s:=a*1.0/(2*b);
    c:=trunc(s)+0.5;
    if abs(s-c)<0.000001 then begin writeln('0');exit;end
    else 
        if s<c then  best:=trunc(s)
        else best:=trunc(s)+1;
    if (0.3*sqrt(a*best-b*best))<0 then writeln('0')
    else writeln(best);
    close(input);
    close(output);
end.