Cod sursa(job #541264)

Utilizator ion_calimanUAIC Ion Caliman ion_caliman Data 24 februarie 2011 22:33:23
Problema Iepuri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.57 kb
const modulo=666013;
var     t,i:byte;
        x,y,z,
        a,b,c:integer;
        n:longint;
        f1,f2:text;

function iep(p:longint):longint;
begin
  if p=0 then iep:=x else
  if p=1 then iep:=y else
  if p=2 then iep:=z else
  iep:=(a*iep(p-1)mod modulo+b*iep(p-2)mod modulo+c*iep(p-3)mod modulo)mod modulo;

end;

begin
  assign(f1,'iepuri.in');
  reset(f1);
  assign(f2,'iepuri.out');
  rewrite(f2);
  readln(f1,t);
  for i:=1 to t do
    begin
      readln(f1,x,y,z,a,b,c,n);
      writeln(f2,iep(n));
    end;
  close(f1);
  close(f2);
end.