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)

0 bình luận về “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. 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.

   Bình luận