程序说明:求Fibonacci数列前m个中偶数位的数: 这是编译原理作业,本打算写 求Fibonacci数列前m个数:写了半天,不会写,就放弃了: 程序代码如下: var n1,n2,m,i; procedure panduan; begin i:=2; while i<m do begin n1:=n1+n2; n2:=n1+n2; i:=i+1; write(n2); end; end; begin read(m); n1:=1; n2:=1; if m=2 then write(n1,n2…