Pagini recente » Cod sursa (job #1746840) | Cod sursa (job #3038580) | Cod sursa (job #2457128) | Cod sursa (job #658899) | Cod sursa (job #287436)
Cod sursa(job #287436)
var m,x,y,z,a,b,c:integer;
i,j,s1,s2,s3,s,n:longint;
f,g:text;
begin
assign(f,'iepuri.in');reset(f);
assign(g,'iepuri.out');rewrite(g);
readln(f,m);
for i:=1 to m do begin
readln(f,x,y,z,a,b,c,n);
s1:=x;
s2:=y;
s3:=z;
for j:=3 to n do begin
s:=(a*s3+b*s2+c*s1)mod 666013;
s1:=s2;
s2:=s3;
s3:=s
end;
if s>3 then writeln(g,s) else
if n=1 then writeln(g,s1) else
if n=2 then writeln(g,s2) else
writeln(g,s3);
end;
close(g);
end.