Cod sursa(job #21744)

Utilizator unknownsipos mariana unknown Data 24 februarie 2007 11:00:56
Problema Iepuri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var f,g:text;
a,b,c,x,y,n,q,i,z,s,j:longint;
begin
assign(f,'iepuri.in');reset(f);
assign(g,'iepuri.out');rewrite(g);
readln(f,q);
for i:=1 to q do
 begin
 s:=0;
  readln(f,x,y,z,a,b,c,n);
  for j:=3 to n do
   begin
   s:=x*a+y*b+C*z;
   c:=b;b:=a;a:=s;
   end;
   writeln (g, s mod 666013);
 end;
  close(f);close(g);
end.