Cod sursa(job #752508)
| Utilizator | Data | 28 mai 2012 19:37:09 | |
|---|---|---|---|
| Problema | Iepuri | Scor | 20 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.48 kb |
program iepuri;
var t,i:byte;
z0,z1,z2,rs:int64;
j,n:longint;
a,b,c:integer;
fin,fout:text;
begin
assign(fin,'iepuri.in');reset(fin);
assign(fout,'iepuri.out');rewrite(fout);
readln(fin,t);for i:=1 to t do begin
readln(fin,z0,z1,z2,a,b,c,n);
for j:=3 to n do begin
rs:=(c*z0+b*z1+a*z2)mod 666013;
z0:=z1;z1:=z2;z2:=rs;end;
writeln(fout,rs);end;
close(fin);close(fout);end.
