TL

Lập chương trình tìm và in ra các số Fibonaci nhỏ hơn hoặc bằng một số K cho trước

NP
21 tháng 5 2021 lúc 15:56

program fibonaci;

uses crt;

var i,k:integer;

a:array[1..100]of integer;

begin

clrscr;

write('nhap k:');readln(k);

a[1]:=1;a[2]:=1;

for i:=3 to k do

a[i]:=a[i-1]+a[i-2]

for i:=1 to k do

if a[i]<=k then write(a[i]:5);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
CQ
Xem chi tiết
HT
Xem chi tiết
3U
Xem chi tiết
TH
Xem chi tiết
H24
Xem chi tiết
TN
Xem chi tiết
H24
Xem chi tiết
38
Xem chi tiết
TH
Xem chi tiết