Pagini recente » Cod sursa (job #1494380) | Cod sursa (job #1537050) | Cod sursa (job #1995570) | Cod sursa (job #1486504) | Cod sursa (job #152947)
Cod sursa(job #152947)
var f,g:text;
a,b,c:1..1000;
x,y,z:1..10000;
u,t:byte;
i,n:longint;
s,s0,s1,s2:int64;
begin
assign(f,'iepuri.in');
assign(g,'iepuri.out');
reset(f);
rewrite(g);
read(f,t);
for u:=1 to t do
BEGIN
READLN(X,Y,Z,A,B,C,N);
S0:=X;
S1:=Y;
S2:=Z;
FOR I:=3 TO N DO
BEGIN
S:=A*S2+B*S1+C*S0;
S0:=S1;
S1:=S2;
S2:=S;
END;
WRITELN(G,S);
END;
close(f);
close(g);
end.