Đáp án: 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) - 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; ReadlnEnd

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; ReadlnEnd

khanhlinhdoan2005

2 năm trước

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)

Xem đáp án

72 lượt xem

1 câu trả lời

YiYi Đức Nhật

2 năm trước

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.