1樓：迷塵憶
1 var n,s:integer; a:array[1..3]of integer;
begin
read(n);
a[1]:=n mod 10;
a[2]:=n div 10 mod 10;
a[3]:=n div 100;
s:=s+a[1]+a[2]+a[3];
write(s);
end.
2.var n:integer; a:array[1..3]of integer;
begin
read(n);
a[1]:=n mod 10;
a[2]:=n div 10 mod 10;
a[3]:=n div 100;
write(a[1],a[2],a[3]);
end.
3.第三題是什麼啊,有沒有打錯啊
pascal程式設計練習題答案
2樓：匿名使用者
1、編寫一程式，驗證角谷猜想。所謂的角谷猜想是："對於任意大於1的自然數n，若n為奇數，則將n變為3*n+1，否則將n變為n的一半。經過若干次這樣的變換，一定會使n變為1。
2、有一堆100多個的零件，若三個三個數，剩二個；若五個五個數，剩三個；若七個七個數，剩五個。請你編一個程式計算出這堆零件至少是多少個？
3、一輛快車和一輛慢車開往同一地點，快車票價為18元，慢車票價為13. 5元，共售出400張，共計5940元，求快車票和慢車票各多少張?.
4、在下面式子中的二個□內填入一個合適的同樣的數字，使等式成立。
□3*6528=3□*8256
5、有一個三位數，它的各位數字之和的11倍恰好等於自身，請程式設計求出這個三位數。
6、在自然數中，如果一個三位數等於自身各位數字之立方和，則這個三位數就稱為是水仙花數。如:153=13+53+33，所以153是一個水仙花數。求所有的水仙花數。
7、有三種明信片:第一種每套一張，售價2元；第二種每套一張，售價4元； 第三種每套9張，售價2元。現用100元錢要買100張明信片，要求每種明信片至少要買一套，問三種明信片應各買幾套？
請輸出全部購買方案。
8、某人想把一元錢換成伍分、貳分、壹分這樣的零錢， 在這三種零錢中每種零錢都至少各有一個的情況下，共有多少種兌換方案。並打出這些方案。
9、某登山隊員第一天登上山峰高度的一半又24米; 第二天登上餘下高度的一半又24米；每天均如此。到第七天,距山頂還剩91米。求此山峰的高度?
10、百錢買百雞：今有錢100元，要買100只雞，公雞3元一隻，母雞1元一隻，小雞1元3只，若公雞、母雞和小雞都至少要買1只，請程式設計求出恰好用完100元錢的所有的買雞方案。
11、小球從100高處自由落下,著地後又彈回高度的一半再落下。求第20次著地時, 小球共通過多少路程?
12、a、b、c三人進入決賽，賽前a說：「b和c得第二，我得第一」；b說：「我進入前兩名，丙得第三名」；c說：「a不是第二，b不是第一」。比賽產生了
一、二、三名，比賽結果顯示：獲得第一的選手全說對了，獲得第二的選手說對了一句，獲得第三的選手全說錯了。程式設計求出a、b、c三名選手的名次。
3樓：匿名使用者
兄弟，給你點建議，應該是才上路吧，最後幾題可以好好想想，前面的題建議一定要自己做，現在可能一時做不過來，但是熬過這段時間再回來看就簡單了，信奧是開頭難，我們都是過來的人。
總之應該自己去做！少玩點。我不指望得分了，但這是忠告啊！
跪求pascal完善程式習題，別太難。
4樓：匿名使用者
1.問題描述：小明手頭有一份紅十字會的捐款名單，但是這份名單被外星人惡意破壞過，你的任務是幫助小明去恢復這份名單。
由於外星人低估了你的智商，破壞的規則非常簡單，先是將姓名和捐款金額聯接到一行，再將這一行內容按順序切成多行。
輸入格式：有很多行，表示輸入的字串。
輸出格式：輸出共有多行，其中每一個人的資訊一行，分別是姓名和金額，中間用空格隔開。
輸入樣例：
zhangsa
n890liu
hua111
輸出樣例：
zhangsan890
liuhua111
程式清單:
vars, t: ansistring;
x, len, i: longint;
flag: boolean;
begin
s := 『『;
while not ⑴ do
begin
readln(t);
s := s + t;
end;
len := length(s); t := 『『; x := 0; flag :=false;
for i := 1 to len do
begin
if (s[i] <= 『9』) and (s[i] >= 『0』) then
begin
x := ⑵ + ord(s[i]) – ord(『0』);
if flag = false then
⑶;end
else
begin
if flag = true then
begin
⑷;x := 0;
t := 『『;
⑸;end;
t := t + s[i];
end;
end;
writeln(t, 『 『, x);
end.
2.問題描述：有一天小明來到一臺神奇的取款機前，取款機可以無限提供某些特定面額的貨幣，小明想知道他要取出x元共存在幾種不同的方案（取出順序的不一樣認為是相同的方案，具體以樣例為準）。
輸入格式：
第一行一個整數m，表示提供的貨幣種數。
第二行共m個用空格隔開的數字，表示其具體面額。
第三行一個整數x，表示需要取出的錢額。
輸出格式：輸出一個整數，表示方案數。
輸入樣例：
31 2 5
4輸出樣例：
3輸出說明：
取出4元的3種方案分別為（2,2），（1,1,2），（1,1,1,1）。
程式清單：
vardp: array[ ⑹..10001]of longint;
a: array[1..10] of longint;
i, j, x, m:longint;
begin
read(m);
for i := 1 to m do read(a[i]);
⑺;fillchar(dp,sizeof(dp), 0);
dp[0] := ⑻;
for i := 1 to m do
for j := 0 to x do
begin
if ⑼ then break;
if dp[j] = 0 then ⑽;
dp[j+a[i]] := dp[j+a[i]]+ ⑾;
end;
writeln(dp[x]);
end.
程式填空 答案
eofx*10
flag:=true
writeln(t,' ',x)
flag:=false
0readln(x)
1j+a[i]>x
continue
dp[j]
pascal 程式設計簡單題目~急求完整答案~
修改病句練習題，修改病句練習題及答案
來自千丈巖豪爽的喜羊羊 1.主謂不搭配 雷鋒為人民服務的事蹟是值得我們學習的。2.動賓不搭配 一定要嚴肅處理商品亂漲價的事件。或 一定要嚴格制止商品亂漲價的現象的發生。3.修飾語與中心語不搭配 或叫 定語與中心語不搭配 他想，自己有雙能幹的手，什麼都能造出來。4.動賓不搭配 我們老師工作很忙，常常要...
會計模擬練習題目，會計模擬練習題目
1 15日，受到開戶銀行轉來特種賬貸方傳票一張，其款項為500288.75元 借 銀存500288.75 貸 其它貨幣資金500288.75 特種賬貸方傳票屬於匯兌退匯 2 借 財務費用54 貸 銀存54 3 借 庫存現金 30000 貸 銀存30000 4 借 待攤費用 開辦費 3077 貸 銀存...
語文練習題
第四題是不是馮驥才的珍珠鳥，如果是，這句話就是擬人。把小珍珠鳥模擬 在做夢。地2題是比喻句，本體是翠竹，喻體是綠色的寶藏。 郝明霞 1 囂張，形容 的勢力 不良的風氣增長 放肆。2 是，把翠竹比作寶藏，生動形象地寫出了翠竹的價值和功用。3 她，默默地守候，像期待著何人。她只在夜間開花，它的綻放最美最...