Pagini recente » Cod sursa (job #1959258) | Cod sursa (job #208592) | Cod sursa (job #2411056) | Cod sursa (job #1841178) | Cod sursa (job #152966)
Cod sursa(job #152966)
var f,g:text;
a,b,c:1..1000;
x,y,z:1..10000;
u,t:byte;
i,n:longint;
s,s0,s1,s2:longint;
begin
assign(f,'iepuri.in');
assign(g,'iepuri.out');
reset(f);
rewrite(g);
read(f,t);
for u:=1 to t do
BEGIN
READ(f,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)mod 666013;
S0:=S1;
S1:=S2;
S2:=S;
END;
WRITELN(G,S);
END;
close(f);
close(g);
end.