历届真题 pascal noip

即可；m为3时，翻9次即可；m为4时，翻11次即可；m为5时，翻24次即可；…；m为30时，翻899次即可；…

输 入：

仅有的一个数字是这摞硬币的枚数m，0<m<1000。

输 出：

为了使这摞硬币中的每一枚又都是正面朝上所必需翻的次数。

输入样例：

30

输出样例：

899

程 序：

program Programl； var m：integer； function solve (m：integer)：integer； vat i，t，d：integer； flag：boolean; begin if (m=1)then so1ve：= ① else begin d：=2*m+1； t：= 2; i：= 1; flag：=False； repeat if (t=1)then begin solve：= ② flag：=True； end else if ( ③ )then begin solve：=i*m-1； flag：=True； end