Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thùy Linhh

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

nguyễn an phát
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.


Các câu hỏi tương tự
Cao Ngọc Bảo Quyên
Xem chi tiết
hoa tran
Xem chi tiết
39 _ 7G1_ Trương Uyển Uy...
Xem chi tiết
trần hoàng
Xem chi tiết
Tali
Xem chi tiết
Thiên Ân Nguyễn
Xem chi tiết
Anhthuwliz
Xem chi tiết
32.Đinh Văn Thoại 8/4
Xem chi tiết
trần hoàng
Xem chi tiết