记录编号	16134	评测结果	AAAAAAAA
题目名称	中奖的机率	最终得分	100
用户昵称	reamb	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2010-04-20 19:41:57	内存使用	0.12 MiB

program zhonhgjiangdejilv;
var
  i,j,n,m:longint;
  f:array[1..20,1..20]  of int64;
  t,ans:double;
begin
  assign (input,'lottery.in');
  reset (input);
  assign (output,'lottery.out');
  rewrite (output);
    readln (n,m);
    for i:=1 to m do
      f[1,i]:=1;
    for i:=2 to n do
      for j:=1 to m do
        if i>j then
          f[i,j]:=0
        else
          f[i,j]:=f[i,j-1]*i+f[i-1,j-1]*i;
    t:=1;
    for i:=1 to m do
      t:=t*n;
    ans:=f[n,m]/t;
    writeln (ans:0:4);
  close (input);
  close (output)
end.