PASCAL求2的n次方用高精度算
用PASCAL写一个高精度求模(余数)算法 Program mo；typepacketchar：packet array[1.255]of integer；vara，b：packet；s1，s2：string；l1，l2，i：integer；function yushu(a，b：packerchar；integer；vari：integer；beginfor i：=1 to l1 dobegina[i]：=(a[i]+10-b[i])mod 10；a[i+1]：=a[i+1]+(a[i]-b[i])div 10；end；{接下来不想些了，把我写的写成语句就行了}从 l1 downto 1 do，如果为0，那么 dec(l1)如果 l1=l2，哪个从 l1 downto 1 do，如果全部相同，那么yushu(a，b)=数组里的数字倒序否则 如果数组a>；数组b，那么yushu(a，b)：=yushu(a，b)否则yushu(a，b)：=yushu(b，a)；如果 l1>；l2，那么 yushu(a，b)：=yushu(a，b)否则 yushu(a，b)：=yushu(b，a)；end；beginfillchar(a，sizeof(a)，'0')；fillchar(b，sizeof(b)，'0')；readln(s1)；readln(s2)；l1：=length(s1)；l2：=length(s2)；writeln(yushu(a，b)；readlnend.
pascal 问题：求n。读入一个n，求它的阶乘(用高精度计算） 说下效率要求
