Cod sursa(job #752508)

Utilizator Kitkitkit11Artene Cristina Kitkitkit11 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.