Cod sursa(job #152966)
Utilizator | GOREA CLAUDIU-CRISTIAN Clau2000 | Data | 9 martie 2008 22:33:06 |
---|---|---|---|
Problema | Iepuri | Scor | 40 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.56 kb |
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.