PersonalCorpus 版 (精华区)

寄信人: sino (蚱蜢舟)
标  题: 1113
发信站: 哈工大紫丁香 (2002年04月06日19:48:45 星期六)
来  源: 202.118.239.224 

179267 11:51:04 6 Apr 2002
Bozhang,HIT,P.R.China 1113 Pascal Accepted 0.02 sec 53K


var
    m,n,i:integer;
    a,b:extended;
begin
    readln(n,m);
    a:=1; b:=n; b:=b/m;
    i:=1;
    while a<b do begin
        i:=i+2;
        a:=a+1/i;
    end;
    writeln(m*(i+1)/2-(a-b)*m*i+0.5:0:0);
end.

--
FreeBSD has a large number of afficionados who are prepared  to flame 
anybody who  dares  suggest that it's not better than Linux.

Linux has a large number of afficionados who  are  prepared  to flame 
anybody who dares suggest that it's not better than FreeBSD.

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.239.224]