比赛代码 - COGS

比赛	20121016	评测结果	AAAATAAAAATTTTTTTTTT
题目名称	数列求值	最终得分	45
用户昵称	4154	运行时间	14.030 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2012-10-16 20:15:22

显示代码纯文本

var a,b:integer;
    n,f,f1,f2,i,j:longint;


begin
  assign(input,'sequenceb.in');
  reset(input);
  assign(output,'sequenceb.out');
  rewrite(output);


  readln(a,b,n);
  a:=a mod 7;b:=b mod 7;
  f1:=1;f2:=1;
  for i:=3 to n do
  begin
    f:=f1*b+f2*a;
    f1:=f2;f2:=f mod 7;

  end;
  writeln(f2);

  close(input);
  close(output);


end.