Cod sursa(job #164680)

Utilizator portokaliuMincu Razvan portokaliu Data 24 martie 2008 17:52:28
Problema Iepuri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.41 kb
program prog;
var v:array[1..10000] of longint;
    m,n,i,j,a,b,c,ss:longint;
    f,g:text;
begin
assign(f,'iepuri.in');
reset(f);
assign(g,'iepuri.out');
rewrite(g);
readln(f,j);
for ss:=1 to j do begin
m:=3;
read(f,v[1],v[2],v[3],a,b,c,n);
readln(f);
for i:=3 to n do begin
v[m+1]:=0;
v[m+1]:=v[m+1]+v[m]*a+v[m-1]*b+v[m-2]*c;
m:=m+1;
end;
writeln(g,v[m] mod 666013);
end;
close(f);
close(g);
end.