1. 翻硬币
题目描述：
一摞硬币共有m枚,每一枚都是正面朝上。取下最上面的一枚硬币,将它翻面后放回原处。然后取下最上面的2枚硬币,将他们一起翻面后再放回原处。再取3枚,取4枚……直至m枚。然后再从这摞硬币最上面的一枚开始,重复刚才的做法。这样一直做下去,直到这摞硬币中的每一枚又都是正面朝上为止。例如,m为1时,翻两次即可。
输入：仅有的一个数字是这摞硬币的枚数m,0＜m＜1000。
输出：为了使这摞硬币中的每一枚又都是正面朝上所必需翻的次数。
输入样例：30
输出样例：899
程 序：
program Programl;
var m：integer;
function solve (m：integer) ： integer;
var i,t,d：integer;
flag ：boolean;
begin
if (m = 1) then
solve := 2
else begin
d := 2*m+1;t :=2;I :=1;flag :=False;
repeat
if (t=1) then
begin
solve:= i*m ; flag:=True;
end
else if ( t=2*m ) then
begin
solve:= I * m-1;flag :=True
end
else
t := (t*2) mod d ;
I := i+1;
until flag;
end
end;
begin
read (m); if (( m>0 ) and (m<1000)) then
writeln ( solve(m) );
end.
2. OIM地形
二维离散世界有一种地形叫OIM（OI Mountain）。这种山的坡度只能上升（'/'）或下降（'\'），而且两边的山脚都与地平线等高，山上所有地方都不低于地平线。例如：
/\ /\
/ \/\ 是一座OIM：而/ \ 不是。
\/
这个世界的地理学家们为了方便记录，给OIM所有可能的形状用正整数编好号，而且每个正整数恰好对应一种山形。他们规定，若两座山的宽度不同，则较宽的编号较大；若宽度相同，则比较从左边开始第1个坡度不同的地方，坡度上升的编号较大。以下三座OIM的编号由小到大递增：
/\ /\ /\ /\
/ \/\ / \/\/\ / \/ \。显然/\的编号为1。但是地理学家在整理记录时发觉，查找编号与山形的对应关系不是很方便。他们希望能快速地从编号得到山的形状。你自告奋勇答应给他们写一个程序，输入编号，能马上输出山形。
输 入：
一个编号(编号大小不超过600，000，000)，
输 出：
输入编号所对应的山形，l座山所占行数恰为它的高度，即山顶上不能有多余空行。
输入样例：
15
输出样例：
/\ /\
/ \/ \
程 序：
program Programg2;
const
L ：integer=19; SZ ：integer=50;
Up ：char='/';DN ：char'\';
Var
i,nth,x,y,h,e,f：integer;
m ：array[0..1,0..38,0..19]0f integer;
pic：array[0..49,0..49]of char;
procedure init;
var k,s,a,b,c：integer;
begin
for a := 0 to 1 do
for b :=0 to 2*L do
for c:=0 to L do
m[a,b,c]:=0; m[0,0,0]:=1;
for k:=0 to 2*L-1 do
begin
for s:=1 to L do
begin
m[0,k+1,s]:=m[0,k,s+1]+m[1,k,s+1];
m[1,k+1,s]:= m[0,k,s-1]+m[1,k,s-1] ;
end;
m[0,k+1,0]:=m[0,k,1]+m[1,k,1];
end;
end：
procedure draw(k,s,nth： integer);
begin
if(k=0) then exit;
if ((nth-m[1,k,s])>=0)then
begin
nth:= nth-m[1,k,s];
if (y＞h) then h:=y ;
pic[y,x]:= UP; y:=y+1;x:=x+l; draw( k-1,s+1,nth );
end
else begin
y:=y-1; pic[y,x]:=DN; x:=x+1; draw(k-1,s-l,nth);
end;
end：
begin
init;
read(nth);
for e:= 0 to SZ-1 do
for f:=0 to SZ-l do
pic[e,f]:=' ';
x:=0;
y:=0;
h:=0;
i:=0;
while((nth-m[0,2*i,0])>=0)do
begin
nth:=nth-m[0,2*i,0];
i:=i+1 ;
end;
draw( 2*i,0,nth );
for i := h downto 0 do
begin
for e :=0 to x-1 do
write(pic[i,e]);
writeln(' ');
end;
end.