Cod sursa(job #393408)

Utilizator tiger_10Dutescu Radu Alin tiger_10 Data 9 februarie 2010 13:52:43
Problema Iepuri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.62 kb
var f,g:text;
    t,x,y,z,a,b,c,n,i,j:longint;
    s:int64;
begin
        assign(f,'iepuri.in');
        reset(f);
        assign(g,'iepuri.out');
        rewrite(g);
        readln(f,t);
        for i:=1 to t do begin
                read(f,x);read(f,y);read(f,z);read(f,a);read(f,b);read(f,c);readln(f,n);
                s:=0;
                for j:=4 to n do begin
                        s:=(a*z)+(b*y)+(c*x);
                        x:=y;
                        y:=z;
                        z:=s;
                        end;
               writeln(g,s);
       end;
       close(f);
       close(g);
end.