分数要么0，要么100

第120题！~~

第111个AC……

太迟了……

type  
arr = array[0..18] of longint;  
const  
a : arr = (1, 1, 2, 5, 14, 42, 132,429, 1430, 4862, 16796, 58786, 208012,742900, 2674440, 9694845, 35357670,129644790, 477638700);  
var  
n : longint;  
procedure print(idx,nodes : longint);  
var  
i,j,temp,pos1,pos2 : longint;  
begin  
temp := 0;  
if nodes = 1 then begin  
write('X');  
exit;  
end;  
for i := 0 to nodes-1 do begin  
inc(temp, a[i] * a[nodes-1-i]);  
if temp > idx then begin  
dec(temp, a[i] * a[nodes-1-i]);  
j := i;  
break;  
end;  
end;  
if j  0 then begin  
pos1 := (idx-temp) div a[nodes-1-j];  
write('(');  
print(pos1,j);  
write(')');  
end;  
write('X');  
if (nodes-1-j)  0 then begin  
pos2 := (idx-temp) mod a[nodes-1-j];  
write('(');  
print(pos2,nodes-1-j);  
write(')');  
end;  
end;  
procedure solve(n : longint);  
var  
temp,nodes : longint;  
begin  
temp:=0;  
nodes:=0;  
while temp

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

哎！这道题只要能过样例就是满分。40行小程序轻松0ms通过。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

终于过了。。我简直是一个数一个数调的。。。

最开始连1都错。。一直调到15。。

提示下，catalan，参看1388，你很快会发现归于数论类题目的原因了

Flag 　　

题号 　　P1400

类型(?) 　　数论 / 数值

通过 　　1人

提交 　　1次

通过率 　　**100% **

难度 　　2

......