Cod sursa(job #152947)

Utilizator Clau2000GOREA CLAUDIU-CRISTIAN Clau2000 Data 9 martie 2008 22:19:54
Problema Iepuri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.57 kb
var f,g:text;
    a,b,c:1..1000;
    x,y,z:1..10000;
    u,t:byte;
    i,n:longint;
    s,s0,s1,s2:int64;
begin
     assign(f,'iepuri.in');
     assign(g,'iepuri.out');
     reset(f);
     rewrite(g);
     read(f,t);
     for u:=1 to t do
     BEGIN
         READLN(X,Y,Z,A,B,C,N);
         S0:=X;
         S1:=Y;
         S2:=Z;
         FOR I:=3 TO N DO
         BEGIN
              S:=A*S2+B*S1+C*S0;
              S0:=S1;
              S1:=S2;
              S2:=S;
         END;
         WRITELN(G,S);



     END;
     close(f);
     close(g);
end.