1樓：匿名使用者
vara,b:integer； (a=字母數，b=數字數）c:char；
begin
a：=0；
b：=0；
while c <> 『？』 do
begin
read(c)；
if (c>='0') and (i<='9'）then
b：=b+1；
if （i>='a') and (i<='z')then
a:=a+1；
if (i>='a') and (i<='z')then
a:=a+1；
end；
writeln(a，b)；
readln；
end.
2樓：匿名使用者
1.var a,b，i,:integer； (a為字母個數，b為數字個數）
c:char；
begin
a：=0；
b：=0；
while c <> 『？』 do
begin
read(c)；
i:=ord(c)；
if (i>=48) and (i<=57）then b：=b+1；
if （i>=65) and (i<=90) then a:=a+1；
if (i>=97) and (i<=122) then a:=a+1；
end；
writeln（a，b）；
readln；
end；
pascal語言程式設計題求高手呀追加跪求進來看一看
答案不唯一，abc ab ac都是答案 vari1,i2,i3,j longint begin for i1 1 to 2 do for i2 1 to 2 do for i3 1 to 2 do if ord i1 1 ord i1 1 ord i3 2 and i2 2 2 then begin...
100分！幾道VB程式設計題！急用
1 編寫過程計算1 1 2 1 3 1 100定義函式 s u 1 u 設定迴圈 for n 1 to 50 step 1結果 r r s n next n 輸出結果 r 這是關鍵步驟，怎麼寫看你 要麼用極限算，這是高3的數學方法！第2個直接用記事本 打出來正三角形，然後在前面加列印函式！試題二 這...
pascal編譯問題我是初學者這道題怎么做
vari integer tf boolean s string begin tf true readln s for i 1 to length s div 2 do if s i s length s i then tf false if tf then writeln yes.else wri...