Question

Cho dãy số Fibonaci: f1=f2=1 và f(n)=f(n-1) + f(n-2) (n>2)

Viết chương trình từ bàn phím số n và in ra màn hình DÃY SỐ Fiobonaci thứ n.

{Mình muốn in ra màn hình 1 loạt dãy số chứ không phải in ra 1 số Fibonaci}

Answer 1

program fibonaci;

uses crt;

var f:array[1..100]of integer;

n,i,j:integer;

begin

clrscr;

write('n='); readln(n);

f[1]:=1;

f[2]:=1;

i:=2;

repeat

inc(i);

f[i]:=f[i-1]+f[i-2];

until i=n;

writeln(n,' so fibonaci dau tien la: ');

for i:=1 to n do

write(f[i]:4);

readln;

end.