Cod sursa(job #27079)
| Utilizator | Data | 6 martie 2007 07:49:24 | |
|---|---|---|---|
| Problema | Iepuri | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.46 kb |
var x,y,z,a,b,c,n,t:longint;
nr,r,k,i,j,d,s:longint;
f,g:text;
begin
assign(f,'iepuri.in');reset(f);
assign(g,'iepuri.out');rewrite(g);
readln(f,t);
for d:=1 to t do
begin
readln(f,x,y,z,a,b,c,n);
for i:=3 to n do
begin
if i mod 3=0 then
begin
x:=x*a+y*b+z*c;
y:=y*a+x*b+z*c;
z:=z*a+y*b+x*c;
end;
end;
writeln(g,z);
end;
close(f);close(g);
end.