Nhập vào một số N. kiểm tra xem có mấy cách phân tích thành tổng các số fibonanci.

VD: N = 10 -> Có 3 cách phân tích. program bai10; var f:array[1..20] of integer; dd:array[1..20] of boolean; n,i,luu:integer; procedure tim(i:integer); var j:integer; begin if n=0 then begin writeln(i-1); readln; halt; end else begin for j:=1 to luu do if (not dd[j]) and (n>=f[j]) then begin dd[j]:=true; n:=n-f[j]; tim(i+1); dd[j]:=false; n:=n+f[j]; end; end; end; {Chuong trinh chinh} begin write('nhap vao n: ');readln(n); f[1]:=1; f[2]:=1; i:=2; while (f[i]

Hãy giúp mọi người biết câu trả lời này thế nào?

vote

0

Báo vi phạm