Cod sursa(job #164477)
| Utilizator |  Capalna Tanase Tase_C |
Data | 24 martie 2008 11:57:11 |
|---|---|---|---|
| Problema | Iepuri | Scor | 40 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
var n,f,x,y,z,a,b,c,t,i,k:longint;
begin
assign(input,'iepuri.in');reset(input);
assign(output,'iepuri.out');rewrite(output);
readln(n);
for k:=1 to n do begin
read(x,y,z,a,b,c,t);
for i:=3 to t do begin
f:=z;
z:=(x*c+y*b+z*a)mod 666013;
x:=y;
y:=f;
end;
writeln(z);
end;
close(input);close(output);
end.
