Bài tập 7 trang 79 SGK Tin học 11

Cài đặt chương trình:

program bai7;

uses crt;

var n, i:word; f, f1,f2:word;

begin

clrscr;

repeat

write('Nhap N: ');readln(n);

if n<2 then writeln('Nhap N>2 OK!');

until n>=2;

f1:=1;

f2:=2;

for i:=3 to n do

begin

f:=f1+f2;

f1:=f2;

f2:=f;

end;

write('So fibonaxi thu ',n,' la ' ,f);

readln

end.

Chương trình thực hiện đến Nmax=10001.

-- Mod Tin Học 11 HỌC247