想了解少兒編程，機器人編程，C++，Python，信息學奧賽等詳細了解南京少兒信息學奧賽編程小碼王

1.pascal 信息學奧賽編程 50分跪求

數據規模 比較 小 可以考慮用 dp 做 背包問題 容量 為 total div 2 (如果 not odd(tot))tot 為奇數 那無解。 然后 算出 裝滿 total div 2 的總方案數。 應為 左右調換 是同一種情況 結果 就 div 2

2.信息學奧賽編程里的隔板排序問題，多謝達人解釋一下

分析：連續命中的三槍與單獨命中的一槍不能相鄰，因而這是一個插空問題。另外沒有命中的之間沒有區別，不必計數。即在四發空槍之間形成的5個空中選出2個的排列，即。 例13. 馬路上有編號為l，2，3，……，10 十個路燈，為節約用電又看清路面，可以把其中的三只燈關掉，但不能同時關掉相鄰的兩只或三只，在兩端的燈也不能關掉的情況下，求滿足條件的關燈方法共有多少種? 分析：即關掉的燈不能相鄰，也不能在兩端。又因為燈與燈之間沒有區別，因而問題為在7盞亮著的燈形成的不包含兩端的6個空中選出3個空放置熄滅的燈。 ∴ 共=20種方法。

3.信息學奧賽試題（計算機編程）

合并果子。。。。。。。 當然是合并9次了。。。（這個不解釋了，稍微想下就懂了） 合并方法是取兩堆最小的合并，然后把他們的和作為新的一堆，去掉原來的兩堆，再選最小兩堆（新加入的也要比較）。。。。直到只剩1堆 話說這數據很小。。。就合并一次排序一次吧。。。。

4.請教一道信息學奧賽的pascal語言編程題

var name:array[1..100]of string; m:array[1..100]of longint; i,k,l,n,s1,s2:integer; max,sum:longint; ch1,ch2,ch:char; begin assign(input,'***.in'); reset(input); readln(n); for i:=1 to n do begin name[i]:='';m[i]:=0; repeat read(ch); if ch<>' ' then name[i]:=name[i]+ch; until ch=' '; read(s1,s2); read(ch1,ch1,ch2,ch2); readln(l); if (s1>80)and(l>=1) then m[i]:=m[i]+8000; if (s1>85)and(s2>80) then m[i]:=m[i]+4000; if s1>90 then m[i]:=m[i]+2000; if (s1>85)and(ch2='Y') then m[i]:=m[i]+1000; if (s2>80)and(ch1='Y') then m[i]:=m[i]+850; end; close(input); sum:=0;max:=0; for i:=1 to n do begin sum:=sum+m[i]; if max

想了解線上，線下課程，費用，地址的詳細了解pascal 信息學奧賽編程 50分跪求，信息學奧賽編程里的隔板排序問題，多謝達人解釋一下，信息學奧賽試題（計算機編程），請教一道信息學奧賽的pascal語言編程題??