Cod sursa(job #299984)

Utilizator DeadEyeNaiba Mihai Lucian DeadEye Data 7 aprilie 2009 10:25:48
Problema Iepuri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.42 kb
var f,g:text;
    h,x,y,z,a,b,c,n,i,j,t:longint;
begin
    assign(f,'iepuri.in'); reset(f);
    assign(g,'iepuri.out'); rewrite(g);
    readln(f,h);
    for i:=1 to h do
       begin
          readln(f,x,y,z,a,b,c,n);
          for j:=3 to n do
             begin
                t:=a*z+b*y+c*x;
                x:=y; y:=z; z:=t;
             end;
          writeln(g,z);
       end;
    close(f); close(g);
end.