Cod sursa(job #20823)

Utilizator smecheru_tudyMuresan Tudor smecheru_tudy Data 22 februarie 2007 12:51:03
Problema Iepuri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.51 kb
var z,t,i,j,aux,n:longint;
    x:array[1..3]of longint;
    a:array[1..3]of longint;
    v:array[1..999]of longint;
begin
//assign(input,'iepuri.in');reset(input);
//assign(input,'iepuri.out');rewrite(output);
 readln(t);
 for i:=1 to t do begin
  read(x[1],x[2],x[3],a[1],a[2],a[3],n);
  for j:=1 to n-2 do begin
   aux:=x[1]*a[1]+x[2]*a[2]+x[3]*a[3];
   x[1]:=x[2];
   x[2]:=x[3];
   x[3]:=aux;
  end;
  v[i]:=x[3];
 end;
 for i:=1 to t do writeln(v[i] mod 666013);
//close(input);close(output);
end.