Pagini recente » Cod sursa (job #1202166) | Cod sursa (job #2144450) | Cod sursa (job #2263707) | Cod sursa (job #1848617) | Cod sursa (job #152949)
Cod sursa(job #152949)
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)mod 666013+(B*S1) mod 666013+(C*S0) mod 666013)mod 666013;
S0:=S1;
S1:=S2;
S2:=S;
END;
WRITELN(G,S);
END;
close(f);
close(g);
end.