Cod sursa(job #267686)

Utilizator rendorzegAndrei Pavel rendorzeg Data 27 februarie 2009 21:14:53
Problema Iepuri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.66 kb
var f,g:text;
    x,y,z,a,i,b,c,n,t,j,aux,aux1,s:longint;
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,y,z,a,b,c,n);
                 for j:=3 to n do begin
                                  s:=a*z+b*y+c*x;
                                  aux:=z;
                                  z:=s;
                                  aux1:=y;
                                  y:=aux;
                                  x:=aux1;
                                  end;
                 writeln(g,s);
                 s:=0;
                 end;
close(f);
close(g);
end.