比赛代码 - COGS

比赛	HAOI2009 模拟试题3	评测结果	AWWWWWWAAW
题目名称	诸侯安置	最终得分	30
用户昵称	lc	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2009-04-23 10:28:07

显示代码纯文本

program day3_1;
  var
        n,k,x:  longint;
  begin
    assign(input,'empire.in'); reset(input);
    assign(output,'empire.out'); rewrite(output);
    readln(n,k);  randomize;  x :=random(60);
    if k <= x then writeln((1 shl k) mod 504)
       else   writeln(0);
    close(input); close(output);
  end.