1樓:林斯越
樓上的,你們是來學習的還是拿積分的啊???
答案:program ninshu;
var x,a,b:integer;
procedure readdigit(n:integer);
begin
case n of
0:write('ling');
1:write('yi');
2:write('er');
3:write('san');
4:write('si');
5:write('wu');
6:write('liu');
7:write('qi');
8:write('ba');
9:write('jiu');
end;
end;
begin
repeat
readln(x);
if (x<0) or (>999) then write('cuo le');
until (x>=0) and (x<=999);
if (x>=0) and (x<=9) then readdigit(b)
else begin a:=x div 10;b:=x mod 10;
if a<>1 then readdigit(b);
writeln('shi');
if b<>0 then readdigit(b);
end;
writeln;
end.
2樓:
一點誠意也沒有,你以為你是誰?
3樓:
多寫幾個if就可以了^
4樓:
現在的人怎麼都這麼吝嗇分哦
搞得一點寫程式的慾望都沒有了.
看看人家.一點這種問題就給30分.
一道簡單的pascal
m行n列 實際上是m行 相鄰的兩數差為n的等差數列pascal程式 vari,j,n,m longint a array 1.500000 of longint begin readln n,m for i 1 to n m do read a i for i 1 to m do beginfor ...
一道世界上最簡單的PASCAL試題
樓上夠複雜的 vari,j,n,b longint a array 1.1000 of longint begin readln n for i 1 to n do readln a i for i 1 to n 1 do for j i 1 to n do if a i a j then begi...
一道簡單的英語題,一道超簡單的英語題
a it one用於數量比較多的時候,而本題中所指的是僅有乙份,所以特指這乙份,用it a it 泛指的時候用one 特指的時候用it 填it,特指這本雜誌 選it 指代那個latest magazine it 和 one 都可以做代詞 one 不常用於特指的 選 ait 特指 only one l...
關於C 的一道簡單題目,c 的一道簡單題目
min,max deal a 有這樣賦值的嗎?int deal int p 這個函式這麼寫吧 void deal int p,int min,int max 把這個函式的返回語句 return min,max 去掉。以及int min,max,i 改為int i 在main中呼叫時為deal p,m...
一道簡單的生物題,一道簡單的數學題。。。
bbcc b c bbc b cc bbcc 3 3 1 1 這個你明白吧,我就不說了。為什麼 就可以得出下面這兩步 b b 4 4 1 1 bb bb c c 6 2 3 1 cc cc 因為直毛黑色 捲毛黑色 直毛白色 捲毛白色,他們之間的比為 3 3 1 1.你把他們分開來看,先分析直毛和捲毛...