Cod sursa(job #287436)

Utilizator reginaRegina M. regina Data 24 martie 2009 21:11:07
Problema Iepuri Scor 40
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.48 kb
var m,x,y,z,a,b,c:integer;
    i,j,s1,s2,s3,s,n:longint;
    f,g:text;
begin
assign(f,'iepuri.in');reset(f);
assign(g,'iepuri.out');rewrite(g);
readln(f,m);
for i:=1 to m do begin
 readln(f,x,y,z,a,b,c,n);
 s1:=x;
 s2:=y;
 s3:=z;
 for j:=3 to n do begin
    s:=(a*s3+b*s2+c*s1)mod 666013;
    s1:=s2;
    s2:=s3;
    s3:=s
 end;

 if s>3 then writeln(g,s) else
  if n=1 then writeln(g,s1) else
  if n=2 then writeln(g,s2) else
   writeln(g,s3);
end;
 close(g);
 end.