Cod sursa(job #22322)
Utilizator | Data | 26 februarie 2007 08:22:18 | |
---|---|---|---|
Problema | Iepuri | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.5 kb |
var z,t,i,j,aux,n:longint;
x:array[1..3]of longint;
a:array[1..3] of longint;
v:array[1..9999999]of longint;
begin
readln(t);
assign(input,'iepuri.in');reset(input);
assign(output,'iepuri.out');rewrite(output);
for i:=1 to t do begin
read(x[1],x[2],x[3],a[1],a[2],a[3],n);
for j:=1 to n-2 do begin
aux:=x[1]*a[1]+x[2]*a[2]+x[3]*a[3];
x[1]:=x[2];
x[2]:=x[3];
x[3]:=aux;
end;
v[i]:=x[3];
end;
for i:=1 to t do writeln(v[i]);
close(input);close(output);
end.