Pascal 斐波那契数列 求纠错!vara,b,c :array[1..100] of integer;n,i,j,x,w :integer;procedure f(n:longint);beginfillchar(a,sizeof(a),0);b := a;a[1]:=1; b[1]:=1; x:=0;for i:=1 to n-2 dobeginfor j:=1 to 100 dobeginc[j]:=a[j]+b[j]+x;x:=c[j] div 10
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/04 22:27:25
xT[SV+'of*&tlo;ÃlD+QAb'Ic.LP.R#=/t I3W=[EZHqD*7n-6H3;tRWsKI$
H.=_Yi1kUAu!]ѧb>5%2ǔx