Cod sursa(job #393409)
Utilizator | Dutescu Radu Alin tiger_10 | Data | 9 februarie 2010 13:54:47 |
---|---|---|---|
Problema | Iepuri | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.63 kb |
var f,g:text;
t,x,y,z,a,b,c,n,i,j:longint;
s:int64;
begin
assign(f,'iepuri.in');
reset(f);
assign(g,'iepuri.out');
rewrite(g);
readln(f,t);
for i:=1 to t do begin
read(f,x);read(f,y);read(f,z);read(f,a);read(f,b);read(f,c);readln(f,n);
s:=0;
for j:=4 to n do begin
s:=(a*z)+(b*y)+(c*x);
x:=y;
y:=z;
z:=s;
end;
writeln(g,s mod 666013);
end;
close(f);
close(g);
end.