车站解题程序
var a,n,m,x,i,ans,b:longint;//ans是車上人數
? ? f:array[1..100] of longint;//f其實是斐波那契數列begin
? f[1]:=1;//前兩個數的值
? f[2]:=1;
? for i:=3 to 23 do//把全部數算出來
? ? f[i]:=f[i-1]+f[i-2];
? readln(a,n,m,x);//輸入
? b:=(m-(f[n-3]+1)*a) div (f[n-2]-1);
? ans:=(a*(f[x-2]+1))+(b*(f[x-1]-1));? writeln(ans);//輸出
end.
轉載于:https://www.cnblogs.com/YYC-0304/p/9500256.html
總結
- 上一篇: 阶乘之和解题程序
- 下一篇: 部落卫队pascal解题程序