Cod sursa(job #360708)

Utilizator ladyLittle Lady lady 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.