Cod sursa(job #152958)

Utilizator Clau2000GOREA CLAUDIU-CRISTIAN Clau2000 Data 9 martie 2008 22:30:09
Problema Iepuri Scor 40
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.63 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 mod 666013;
         S1:=Y mod 666013;
         S2:=Z mod 666013;
      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.