Cod sursa(job #121967)

Utilizator tiger_10Dutescu Radu Alin tiger_10 Data 10 ianuarie 2008 16:20:07
Problema Iepuri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.7 kb
type iepuri=record
     a,b,c,x,y,z,n:longint;
     end;
var v,u:array[0..200000000] of longint;
     k:iepuri;
     j,t,m:word;
     f,g:text;
function zi():longint;
 var i,a,b,c:longint;
 begin
  a:=k.a;
  b:=k.b;
  c:=k.c;
  for i:=3 to m do
   v[i]:=(((v[i-1]*a)mod 666013)+((v[i-2]*b)mod 666013)+((v[i-3]*c)mod 666013))mod 666013;
  zi:=v[m];
  end;
begin
 assign(f,'iepuri.in');
 reset(f);
 readln(f,t);
 assign(g,'iepuri.out');
 rewrite(g);
 for j:=1 to t do begin
  read(f,k.x);
  read(f,k.y);
  read(f,k.z);
  read(f,k.a);
  read(f,k.b);
  read(f,k.c);
  read(f,k.n);
  v[0]:=k.x;
  v[1]:=k.y;
  v[2]:=k.z;
  m:=k.n;
  writeln(g,zi);
  end;
 close(f);
 close(g);
end.