比赛 noi2000练习1 评测结果
题目名称 瓷片项链 最终得分 0
用户昵称 李宴彬 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2018-01-29 16:58:57
显示代码纯文本
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.