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.

Bởi

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.

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

  1. 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.

    Bình luận

Viết một bình luận