比赛代码 - COGS

比赛	20110730	评测结果	AAAAAAWAAA
题目名称	翻硬币	最终得分	90
用户昵称	echo	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2011-07-30 11:34:48

显示代码纯文本

program xcoins;
var
  a:array[5..10] of longint;
  n:int64;
begin
  assign(input,'xcoins.in');
  assign(output,'xcoins.out');
  reset(input);
  rewrite(output);
  readln(n);
  a[5]:=1;
  a[6]:=6;
  a[7]:=3;
  a[8]:=4;
  a[9]:=3;
  a[10]:=2;
  if (n<11) then
    writeln(a[n])
    else
      if n div 5=0 then writeln(n div 5)
        else  writeln(n div 5+(n mod 5+1) mod 2 + 1);
  close(input);
  close(output);
end.