Đăng nhập để hỏi chi tiết


Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Var i,n:longint;
A,b,c:int64;
Begin
Readln(n);
A:=1;
B:=1;
If n=0 then write(0)
Else if (n=1) or (n=2) then write(1)
Else
Begin
For i:=3 to n do
Begin
C:=b;
B:=(a+b) mod 1000000007; //mod 10^9+7
A:=c;
End;
Write(b,' ');
End;
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
![]()
Bảng tin