Cod sursa(job #1141528)

Utilizator laura.calimanLaura Caliman laura.caliman Data 12 martie 2014 22:28:43
Problema Iepuri Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.36 kb
var t,x,y,z,a,b,c,n,i,j,v:longint;

begin
  assign(input,'iepuri.in');
  assign(output,'iepuri.out');
  reset(input);
  rewrite(output);
  
  read(t);
  for i:=1 to t do begin
    readln(x,y,z,a,b,c,n);
    for j:=3 to n do begin
      v:=(z*a+y*b+x*c) mod 666013;
      x:=y;
      y:=z;
      z:=v;
    end;
    write(v mod 666013);
  end;
end.