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 câu trả lời
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.
