比赛代码 - COGS

比赛	20110730	评测结果	EEEEEEEEEE
题目名称	翻硬币	最终得分	0
用户昵称	老虎小飞	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2011-07-30 10:10:59

显示代码纯文本

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,'xcoin.in');reset(input);
assign(output,'xcoin.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.