1樓：打醬油小盆
第一題是百錢百雞問題拓展，屬於列舉問題
program p1;
vara,b,c:integer;
begin
for a:=1 to 35 do
for b:=1 to 50 do
begin
c:=90-a-b;
if a*15+b*10+c*5=500 thenwriteln( a,' ',b,' ',c);
end;
end.
第二題列舉n，注：累加器一定要用實數型別
program p2;
vari:integer;
s:real;
begin
i:=0;
s:=0;
repeat
i:=i+1;
s:=s+1/i;
until s>10；
writeln(i);
end.
用while型迴圈做
只要把repeat
i:=i+1;
s:=s+1/i;
until s>10；
改成while s<=10 do
begin
inc(i);
s:=s+1/i;
end;
2樓：
//problem 1
var mj,gj,xj:longint;
begin
for mj:=0 to 500 div 15 dofor gj:=0 to 50 do
for xj:=-0 to 100 do if (mj+gj+xj=90) and (mj+mj+mj+gj+gj+xj=100) then
begin
writeln('母雞數量=',mj);
writeln('公雞數量=',gj);
writeln('小雞數量=',xj);
halt;
end;
end.
底下那題類似
直接在網頁上打的 沒有編譯過
一道關於pascal的問題： 10
3樓：匿名使用者
有兩種解決方法：
1、狀態壓縮動態規劃，複雜度o(2^n*n^2)2、二分圖的最大權匹配，複雜度o(n^3)先要學動態規劃，位運算才行，如果不會的話我發**也沒用。
裝修公司常見問題，裝修公司常見問題
你沒法正面回答，因為你解釋的其實也是本質，但是你只有利用喜好和信任，只有好好地談，才會去聽你說的話！你講的道理，並且做出一些承諾和合同去證明，舉例子第一個問題 裝修公司貴，因為業主自己找人，自己買材料，沒有裝修公司賺的錢，那自然省錢呀！所以這一點只能說對，裝修公司肯定得掙錢，但是.就看你如何推拉的把...
關於助聽器問題，助聽器的常見問題有哪些
聽力損失越重，花的錢就越多，所以說盡早去配助聽器是明智之舉建議貨比三家，看品牌，看直營店或是 商，看功率，更重要的是看售後服務，因為這助聽器不是易消耗品，需長期保養 雙耳選配能夠預防聽覺剝奪，儲存雙耳的言語理解力。如果雙耳都有聽損的話，確實雙耳都要驗配助聽器，一邊配一邊不配的話，時間久了容易對不配的...
AVE驗廠常見問題有哪些，CK驗廠常見問題有哪些？
柯爾驗廠常見問題具體如下 宿舍條件不達標，宿舍居住人數過多 對工人進行搜身 體罰等侵害工 ck驗廠常見問題有哪些？驗廠常見問題具體如下 1 宿舍條件不達標，宿舍居住人數過多 2 對工人進行搜身 體罰等侵害工人人身權益的行為 3 工廠的環境保護不達標 4 工廠的通風設施不足，空氣流通存在問題 5 消防...