比赛代码 - COGS

比赛	20121016	评测结果	EEEEEEEEEEEEEEEEEEEE
题目名称	数列求值	最终得分	0
用户昵称	weichen	运行时间	0.004 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2012-10-16 19:20:12

显示代码纯文本

program lx;
var
  s:array[1..3]of byte;
  a,b:integer;
  i,n:longint;
begin
assign(input,'sequence.in');
assign(output,'sequence.out');
reset(input);
rewrite(output);
  readln(a,b,n);
  s[1]:=1; s[2]:=1;
  a:=a mod 7; b:=b mod 7;
  for i:=3 to n do
    begin
      s[3]:=(s[2]*a+s[1]*b)mod 7;
      s[1]:=s[2];
      s[2]:=s[3];
    end;
  write(s[3]);
close(input);
close(output);
end.