Cod sursa(job #360708)
Utilizator | Data | 1 noiembrie 2009 17:29:35 | |
---|---|---|---|
Problema | Iepuri | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.35 kb |
var t,i:byte;
a,b,c:integer;
x,y,z,n,j,m,s:longint;
begin
assign(input,'iepuri.in');reset(input);
assign(output,'iepuri.out');rewrite(output);
readln(t);
for i:=1 to t do begin
read(x,y,z,a,b,c,n);
dec(n,2);
for j:=1 to n do begin
m:=a*z+b*y+c*x;
x:=y; y:=z; z:=m;
end;
writeln(z);
end;
close(input) ;close(output);
end.