Cod sursa(job #1141504)

Utilizator laura.calimanLaura Caliman laura.caliman Data 12 martie 2014 22:07:50
Problema Iepuri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.4 kb
var t,x,y,z,a,b,c,n,i,j:longint;
    v:array[0..200000000] of longint;

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