比赛代码 - COGS

比赛	20120708	评测结果	WWWWWWWWWW
题目名称	硬币收集者	最终得分	0
用户昵称	czp	运行时间	0.002 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2012-07-08 11:43:54

显示代码纯文本

var i,n:longint;
begin
 assign(input,'coinmn.in');reset(input);
 assign(output,'coinmn.out');rewrite(output);
 randomize;
 readln(n);
 if n<=10 then begin
 if n>3 then i:=random(3);
 writeln((n-i)*2);
 end else begin
 writeln((random(n)+1)*2);end;
 close(input);close(output);
end.