Cod sursa(job #670390)

Utilizator lostfanAndrei lostfan Data 28 ianuarie 2012 23:18:29
Problema Iepuri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.52 kb
type tab=array [1..7] of integer;
var ta:array [0..100] of integer;
t1:array [1..100] of tab;
var i,j,n,t:integer;
fi,fo:text;
begin
assign(fi,'iepuri.in'); reset(fi);
assign(fo,'iepuri.out'); rewrite(fo);
readln(fi,t);
for i:=1 to t do begin
for j:=1 to 7 do
read(fi,t1[i][j]);
readln(fi);
end;
for j:=1 to t do begin
ta[0]:=t1[j][1];
ta[1]:=t1[j][2];
ta[2]:=t1[j][3];
n:=t1[j][7];
for i:=3 to n do
ta[i]:=t1[j][4]*ta[i-1]+t1[j][5]*ta[i-2]+t1[j][6]*ta[i-3];
writeln(fo,ta[n]);
end;
close(fi); close(fo);
end.