Giúp mình vs , mình vote 5 sao ạ! Viết chương trình phân tích N thành tổng của ít nhất các số Fibonanci khác nhau (pascal)
1 câu trả lời
Program BTT;
Uses crt;
Var n,x,y,z: qword;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
Repeat
x:=1; y:=0;
Repeat
z:=x+y;
x:=y;
y:=z;
Until z>n;
Write(x,' ');
n:=n-x;
Until n=0;
Readln
End.
