Cod sursa(job #264917)

Utilizator batracorina dijmarescu batra Data 22 februarie 2009 22:47:24
Problema Iepuri Scor 40
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.44 kb
const rest=666013;
var f,g:text;
v1,v2,v3,v4,t,x,y,z,a,b,c,n,i,j:longint;
begin
 assign(f,'iepuri.in');
 reset(f);
 assign(g,'iepuri.out');
 rewrite(g);
 readln(f,t);
 for j:=1 to t do
     begin
        readln(f,x,y,z,a,b,c,n);
        for i:=3 to n do
           begin
             v4:=(a*z+b*y+c*x)mod rest;
             x:=y;
             y:=z;
             z:=v4;
           end;
        writeln(g,z);
     end;
 close(g);
 end.