Cod sursa(job #1719557)
Utilizator | Data | 19 iunie 2016 16:06:03 | |
---|---|---|---|
Problema | Iepuri | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.39 kb |
var j,t,i,a,b,c,n:integer;
x:array [0..100000000] of integer;
begin
assign(input,'iepuri.in');
assign(output,'iepuri.out');
reset(input);
rewrite(output);
readln(t);
for j:=1 to t do
begin
readln(x[0],x[1],x[2],a,b,c,n);
for i:=3 to n do
x[i]:=(a*x[i-1]+b*x[i-2]+c*x[i-3]) mod 666013;
writeln(x[n]);
end;
close(input);
close(output);
end.