Cod sursa(job #30064)

Utilizator alex_mircescuAlex Mircescu alex_mircescu Data 12 martie 2007 18:00:00
Problema Iepuri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.37 kb
var i,j,t,n,aux1,a,b,c,z,x,y:longint;
begin
assign(input,'iepuri.in');
assign(output,'iepuri.out');
reset(input);
rewrite(output);
readln(t);
for i:=1 to t do
  begin
   read(x,y,z,a,b,c,n);
   for j:=3 to n do
     begin
      aux1:=z;
      z:=x*c+y*b+z*a;
      x:=y;
      y:=aux1;
     end;
   writeln(z);
  end;
close(input);
close(output);
end.