记录编号 26964 评测结果 AAAAAAAAAA
题目名称 翻硬币 最终得分 100
用户昵称 Gravatar老虎小飞 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2011-07-30 14:46:06 内存使用 0.12 MiB
显示代码纯文本
const
p:array[6..20]of longint=(6,3,4,3,2,3,4,3,4,3,4,5,4,5,4);
var
n,ans:int64;
begin
assign(input,'xcoins.in');reset(input);
assign(output,'xcoins.out');rewrite(output);
    read(n);
    if n<=20 then writeln(p[n])
    else begin
        ans:=(n-15) div 5;
        n:=n-5*ans;
        ans:=ans+p[n];
        writeln(ans);
    end;
close(input);close(output);
end.