pascal 一道水題啊！！！！急！！！
1樓：網友
program lyf;
vari,n,a,b,c:longint;
beginreadln(n);
b:=0;a:=-1;
for i:=1 to n do
beginread(c);
if c<>a then
beginif b=0 then
begina:=c;
inc(b);
endelse dec(b);
endelse
inc(b);
end;writeln(a);
end.**很短，思想就是不同則抵消，因為眾數不小於提供總數的一半，所以抵消到最後只剩下那個眾數，只有這樣才能不超空間。
2樓：西蓮公主
我以noip一等獎起誓，這絕對不是水題！
varn,a,num,ans,i:longint;
beginread(n);
ans:=-maxlongint;
for i:=1 to n do
beginread(a);
if a=ans then inc(num) else dec(num);
if num<0 then
beginans:=a;
num:=1;
end;end;
writeln(ans);
end. 眾數的出現次數一定比其他數出現次數總和還多。在其他資料抵消後，眾數一定會剩下。
3樓：網友
太水了。樓上那貨還一等獎。
這道題也就第一題的水平。
4樓：
這道題是用來面試的。
pascal題目 求高手解答
5樓：
直接模擬。兩個變數，a表示前個水域水溫，b表示當前水域水溫，比較a、b，若abs(a-b)>=10，則在當前水域會感冒，比較完後令a等於b。
再設定乙個變數k用來表示連續咳嗽幾次。
在當前水域，若。
1、咳嗽：k加一，並把咳嗽次數加一，若k等於二，則感冒次數加一。
2、沒有咳嗽，讓k等於零。
**就不寫了。
求高人幫我解決下這題pascal難題，**等！
6樓：匿名使用者
對物體a受力分析：若m對a的支援力等於ga，則a對左繩無拉力，則n對物體c也沒有拉力。因此m處於壓縮狀態，n處於不伸不縮狀態，故c錯。
若m對a支援力小於ga（支援力不為0時），則左繩對a有拉力，相應的，n對c也有拉力。此時m壓縮，n拉伸。故a對。
若m對a支援力為0，ga等於左繩對a拉力時，n對c也有拉力，大小為ga，則m不伸不縮，n拉伸。故d對。
現對c受力分析：c受向下重力，向上支援力（有可能），向上拉力（有可能），要使n處於壓縮狀態，則必須有個物體給n乙個向上的力，而滿足條件的物體只有c，c只能對彈簧有向下的力，所以b錯。
綜上述分析，得a、d
另外，團idc網上有許多產品**，便宜有口碑。
pascal 基礎題 **求解 急急急！30分
7樓：木野輕風
varm,n:integer;
beginreadln(m,n);
writeln(100-n+m);
end.主要是想清楚，錢是如何流轉的；年輕人沒有給王老闆錢；王老闆開始從街坊那裡拿了100零錢，後來還回去了；
這樣，王老闆沒有得到任何錢，且和街坊沒有任何關係；
現在就是王老闆給了年輕人多少錢；
乙個是找給年輕人100-n元；另乙個就是禮物；
禮物沒有賣出去，而是白送給了年輕人，所以禮物不是商品，王老闆損失了m元（禮物的成本）；
綜上，損失是(100-n)+m
8樓：網友
最後假幣在誰手上，誰吃虧100元。
程式我不給了。
如果你真要就追問。
一道化學題，急啊
硫燃燒時,s o2 so2,消耗的氧氣和產生的so2摩爾數相等,但由於燃燒放熱膨脹,右側壓力變大,所以左側汞液面上公升，右側汞液面下降,溫度恢復時,兩邊壓力恢復一樣,所以兩側汞液面又持平.若u形管內盛的是滴有紫色石蕊試液的水,則實驗現象為 水變成紅色,右側汞液面上公升，左側汞液面下降.因為產生的so...
一道pascal題目
給你核心 吧,這是判斷兩個數是否是親密數對的函式 function main a,b longint boolean vari,s1,s2 longint begin if a b then exit false s1 0 s2 0 for i 1 to a 1 do if a mod i 0 th...
一道語文題一道語文題，急！！！！！！
破涕為笑 欣喜若狂 正襟危坐 相依為命 歡天喜地 家喻戶曉 巋然不動 博古通今專 危在旦夕 1 畫橫線屬的詞語描寫的是形容危險就在眼前。意思相近 朝不保夕，岌岌可危 九死一生 在劫難逃 不堪一擊 千鈞一髮 燃眉之急2破涕為笑 欣喜若狂 極度危險情況 命懸一線 岌岌可危 破涕為笑 欣喜若狂 正襟危坐 ...