会计学递归二阶乘函数阶乘函数可递归地定义为：结束n:=0n=ndiv2n<>0两个正整数m和n的最大公约数辗转相互除法（欧几里得算法）varm,n:longint；functiongcd(m,n:longint):longint；beginifmmodn=0thengcd:=nelsegcd:=gcd(n,mmodn)；｛递归调用｝end；begin{主程序}read(m,n)；writeln(gcd(m,n))；end．会当凌绝顶，一览众山小procedurefoo(a,b,c:integer);beginifa>bthenfoo(c,a,b)elsewriteln(a,',',b,',',c)end;vara,b,c:integer;beginreadln(a,b,c);foo(a,b,c);end.输入：213输出：_________________procedurefoo(a,b,c:integer);beginifa>bthenfoo(c,a,b)elsewriteln(a,',',b,',',c)end;查找01356891521345667用递归算法完成折半查找。programex_search_1;varx,i,j,mid:integer;a:array[1..20]ofinteger;beginfori:=1to20dobegina[i]:=i*2;write(a[i]:3);end;writeln;readln(x);i:=1;j:=20;whilei<=jdobeginmid:=(i+j)div2;ifx=a[mid]thenbeginwrite(mid);exit;endelseifx>a[mid]theni:=mid+1elsej:=mid-1;end;write(-1);end.思考：0，1，1，2，3，5，8，13，21，34，55……从第三项起，每一项都是紧挨着的前两项的和。写出计算斐波那切数列的任意一个数据项递归函数形式。