Giải bài toán về dãy Fibonacci

a) Nhập n. In ra n số Fibonaxi đầu tiên.
b) Nhập n. In ra các số Fibonaxi nhỏ hơn n.
c) Nhập m. Kiểm tra xem m có phải là số Fibonaxi không?
Bài giải:
uses crt;
var i,n,d,a,b,c,m:integer;
begin
clrscr;
      a:=0;
      b:=1;
      write('nhap n:');readln(n);
      writeln('Day Fibonaxi la:');
      for i:=1 to n do
      begin
           c:=a+b;
           b:=a;
           a:=c;
           write(c:5);
      end;
      writeln;
      writeln('Cac so Fibonaxi nho hon bang ',n,' :');
      a:=0;
      b:=1;
      c:=0;
      while c<=n do
      begin
           c:=a+b;
           b:=a;
           a:=c;
           if c<=n then write(c:5);
      end;
      writeln;
      write('Nhap m:');readln(m);
      a:=0;
      b:=1;
      c:=0;
      d:=0;
      while c<=m do
      begin
           c:=a+b;
           b:=a;
           a:=c;
           if c=m then inc(d);
      end;
      if d=0 then writeln(m,' ko la so Fibonaxi')
      else write(m,' la so Fibonaxi');
readln;
end.

inc là gì ý nhỉ

inc(x) là tăng giá trị biến nguyên x lên một đơn vị, tức là tương đương với câu lệnh x:=x+1

bài kt số fibonacci ý mình có cách giải này nek
var a,b,c,n,i:integer;
kt:boolean;
begin
write('nhap so n=');readln(n);
a:=0;b:=1;c:=0;
kt:=false;
while c<=n do
begin
c:=a+b;
b:=a;
a:=c;
if c=n then kt:=true;
end;
if kt then write(n,' la so fibonacci')
else write(n,' ko la so fibonacci');
readln;
end.
xem thử đúng ko nhé

cách giải của bạn đúng, nhưng ở đây có sử dụng thêm biến kt để kiểm tra nên bài giải dài hơn và không tiết kiệm bộ nhớ

Thanks ad