Viết chương trình (Pascal/C++) xuất ra tất cả các số a[i] là số Fibonacci sao cho 0 < a[i] <= n, với n nhập từ bàn phím.
2 câu trả lời
Program Hotboy;
Uses crt;
Var n,F,F1,F2 : longint;
Begin
clrscr;
Write('nhap tu ban phim so n');
Readln(n);
F1:=1; F2:=1;
Write(F1,';',F2,';');
Repeat
F:=F1+ F2;
If F<n then write(F,';');
F2:=F1; F1:=F;
Until F>n ;
Readln
End.