Cho f0 =’a’ F1 =’b’ Fn = n – 1 + f n – 2 với n lớn hơn bằng 2 tính và in ra màn hình F10

0 bình luận về “Cho f0 =’a’ F1 =’b’ Fn = n – 1 + f n – 2 với n lớn hơn bằng 2 tính và in ra màn hình F10”

1. uses crt;

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

   tong , n : integer;

   begin

   clrscr;     

   write(‘nhap n: ‘); readln (n);

   f[1] := 0;

   f[2] := 1;

   tong := 1;

   for i := 3 to n do

   begin

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

   tong := tong+f[i];

   end;

   for i := 1 to n do write(f[i],’ ‘);

   write(‘tong: ‘,tong);

   readln

   end.

   Bình luận