Pagini recente » Cod sursa (job #466620) | Cod sursa (job #2877860) | Cod sursa (job #3277221) | Cod sursa (job #2056335) | Cod sursa (job #21737)
Cod sursa(job #21737)
program iepurasi;
var f,g:text;
nr,z1,z2,z3,s,x,y,z,a,b,c,l,m:integer;
n:longint;
begin
assign(f,'iepuri.in');reset(f);
assign(g,'iepuri.out');rewrite(g);
readln(f);
while not eof(f) do begin
readln(f,x,y,z,a,b,c,n);
nr:=0;
z1:=0;z2:=0;z3:=0;
repeat
if nr=0 then begin z1:=x; s:=z1+z2+z3;end
else if nr=1 then begin z1:=y; z2:=x;s:=z1+z2+z3;end
else if nr=2 then begin z1:=z; z2:=y; z3:=x;s:=z1+z2+z3;end;
if nr>2 then begin
s:=a*z1+b*z2+c*z3;
l:=z1;
m:=z2;
z1:=s;
z2:=l;
z3:=m;
end;
inc(nr);
until nr=n+1;
writeln(g,s);
end;
close(f);close(g);
end.