Cod sursa(job #1141504)
Utilizator | 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.