Cod sursa(job #299984)
Utilizator | 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.